Cod sursa(job #86757)

Utilizator DiaconuDiaconu Loredana Diaconu Data 25 septembrie 2007 14:49:34
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.19 kb
Raporteaza aceasta sursa 
var  a,b,s:longint;
     f,g:text;
begin
assign (f,'adunare.in');reset (f);
assign (g,'adunare.out');rewrite (g);
readln (f,a);
readln (f,b);
s:=a+b;
writeln (g,s);
close (f);close(g);
end.