Cod sursa(job #329896)

Utilizator marean_mareanmarean marean_marean Data 7 iulie 2009 23:43:47
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.32 kb
program adunare;
begin
var x,y:txt;
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.