Cod sursa(job #1003422)
| Utilizator |  Rad Andrei andreirad |
Data | 30 septembrie 2013 18:14:48 |
|---|---|---|---|
| Problema | A+B | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.25 kb |
program adunaresimpla;
var x,y:text;
a,b:integer;
S:longint;
Begin
assign(x,'adunare.in.txt');reset(x);
assign(y,'adunare.out.txt');rewrite(y);
while not EOF(x) do
begin
read(x,a,b);
S:=A+B;
end;
write(y,S);
close(x);
close(y);
end.
