Cod sursa(job #134161)

Utilizator alexu128Rosu Alexandru alexu128 Data 10 februarie 2008 19:53:43
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.24 kb
Raporteaza aceasta sursa 
var a,b,s:longint;  f,t:text;
begin
     assign(f,'adunare.in');
     reset(f);
     readln(f,a);
     readln(f,b);
     assign(t,'adunare.out');
     rewrite(t);
     s:=a+b;
     write(t,s);
     close(f);
     close(t);
     end.