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