Cod sursa(job #257724)

Utilizator KalynCalin Andrei Juganaru Kalyn Data 13 februarie 2009 21:14:49
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
Program adunare;
        Var a,b,s:integer;
Begin
        Writeln('Primul numar este:');
        Readln(a);
        Writeln('Al doilea numar este:');
        Readln(b);
        s:=a+b;
        If s<2000000000 THEN Writeln('Suma celor doua numere este:',s)
                        ELSE Writeln('Numere prea mari, introduceti numere mai mici');
End.