Program Pascal

uses crt;
var a, b, c : real;

begin
clrscr;
write ('Masukkan nilai detik pertama : ');
readln (a);
write('Masukkan nilai detik kedua : ');
readln(b);
if (a = 100000) or( b = 100000) then
begin
writeln('=======================================');
writeln('jumlah nilai keduanya adalah ',a+b:10:0);
end;
readln;
end.



Sory nah.... gambarnya gak bisa di munculin..... lambat sekali....