Cod sursa(job #329891)
| Utilizator |  marean marean_marean |
Data | 7 iulie 2009 23:33:46 |
|---|---|---|---|
| Problema | A+B | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.32 kb |
program adunare;
begin
var x,y:text;
var a,b,s:integer;
begin
assign(x,'adunare.in');
reset(x);
s:=0;
b:=0
while not eof(x) do
begin b:=b+1;
if b<=2 then
begin
readln(x,a);
s:=s+a;
end;
end;
assign(y,'adunare.out');
rewrite(y);
write (y,s);
close(x);
close(y);
end.