Cod sursa(job #459269)

Utilizator hidden_softyoyo bau hidden_soft Data 28 mai 2010 19:39:14
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.26 kb
Raporteaza aceasta sursa 
program pascal;
var a,b,suma:longint;
    f,g:text;
Begin
 assign(f,'adunare.in');
 assign(g,'adunare.out');
 reset(f);
 rewrite(g);
 readln(f,a);
 read(f,b);
 suma:=a+b;
 if suma < 2000000000
    then
     write(g,suma);
 close(f);
 close(g);
End.