Cod sursa(job #1517854)

Utilizator gra99Graur Gabriel gra99 Data 4 noiembrie 2015 22:11:47
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.23 kb
Program adunare;
 var a,b,s:longint;
 fi,fo:textfile;
 begin
 assign(fi,'adunare.in');reset(fi);
 assign(fo,'adunare.out');rewrite(fo);
 read(fi,a, b);
 s:=a+b;
 if s<=2000000000 then  writeln(fo,s);
 close(fi);
 close(fo);
 end.