var i: integer; s: real;begin s := 1; for i := 1583 to 2013 do s := s + (1 * 0.03); writeln('На счету: ', s);end.
var
i: integer;
s: real;
begin
s := 1;
for i := 1583 to 2013 do s := s + (1 * 0.03);
writeln('На счету: ', s);
end.