Cod sursa(job #426347)
Utilizator | 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.