Cod sursa(job #1767241)

Utilizator TonuMiaMaximelaTMaximela TonuMiaMaximela Data 28 septembrie 2016 20:45:18
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.23 kb
program sumaadouanumere;
var x,y : text; a, b, s: integer;
begin
assign(x, adunare.in);
assign(y, adunare.in);
reset(x);
while not eoln(x) do
begin
read(x, a, b);
s:=a+b;
end;
writeln(y, s);
close(x);
close(y);
readln;
end.