Cod sursa(job #426347)

Utilizator PaulgabiBorca Paul Paulgabi Data 26 martie 2010 19:49:06
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.24 kb
program suma;
var a,b,c:longint;
begin
writeln('Dati primul numar');
readln(a);
writeln('Dati al doilea numar');
readln(b);

c:=a+b;

if c>2000000000 then write('Suma depaseste 2 miliarde');

writeln(' Suma este',c);

readln;
end.