Гражданин,1 марта открыл счет в банке вложил 1000р,через каждый месяц размер вклада увеличился на 2%,от имеющей суммы..определить прирост суммы вклада за первый второй … десятый месяц- Pascal(Паскаль)

uses crt;

var
  i: integer;
  k, p: real;

begin
  k := 1000;
  for i := 1 to 10 do
  begin
    p := k * 0.02;
    k := k + p;
    writeln('za ', i, '-ij mesac prirost = ', p:8:2, ' ryblei');
  end;
  readln;

end.