Cod sursa(job #1996800)

Utilizator natalia00Natalia Plesca natalia00 Data 2 iulie 2017 16:50:01
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.32 kb
program p1;
uses crt;
var fi, fo:text;
      a,b,s:longint;
begin
clrscr;
assign(fi,'adunare.in');
assign(fo,'adunare.out');
reset(fi);
rewrite(fo);
readln(fi,a);
readln(fi,b);
s:=a+b;
if s>2000000000 then writeln(fo,'suma depaseste numarul 2000000000')
else writeln(fo,'s=',s);
close(fi);

close(fo);
end.