Cod sursa(job #75831)

Utilizator danyellaFlorescu Maria Daniela danyella Data 6 august 2007 11:53:24
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.31 kb
Raporteaza aceasta sursa 
program suma;
uses crt;
var a,b,s:longint;
begin
        clrscr;   s:=0;
        write('a=');readln(a);
        write('b=');readln(b);
        s:=a+b;
        writeln('Suma=',s);
        if s>2000000000 then writeln('Introduceti a si b astefel incat suma sa nu depaseasca 2.000.000.000');
        readln;
end.