Cod sursa(job #877844)

Utilizator linerunnerMihai Ion linerunner Data 13 februarie 2013 12:34:01
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.17 kb
var s,a,b:longint;
f,g:text;
Begin
Assign(f,'adunare.in');Reset(f);
Assign(g,'adunare.out');Rewrite(g);
Readln(f,a);Read(f,b);
s:=a+b;
Write(g,s);
close(f);close(g);
end.