Cod sursa(job #47265)

Utilizator stefancurcacurca stefan alexandru stefancurca Data 3 aprilie 2007 14:57:39
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.19 kb
Raporteaza aceasta sursa 
var g,f:text;
a,b,c:integer;
begin
assign (g,'adunare.in');       reset(g);
assign (f,'adunare.out');rewrite(f);
readln(g,a);
readln(g,b);
c:=a+b;write(f,c);
close(f);close(g);
end.