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

uses crt;
var s,p:real;
    i:byte;
begin
clrscr;
s:=1000;
writeln('Начальная сумма вклада=1000, месячный процент=2');
for i:=1 to 10 do
 begin
  p:=s*0.02;
  writeln('Прирост за ',i:2,' месяц=',p:0:2);
  s:=s*1.02;
 end;
readln
end.

uses crt;
var s,p:real;
    i:byte;
begin
clrscr;
s:=1000;
writeln('Начальная сумма вклада=1000, месячный процент=2');
i:=1;
while i<=10 do
 begin
  p:=s*0.02;
  writeln('Прирост за ',i:2,' месяц=',p:0:2);
  s:=s*1.02;
  i:=i+1;
 end;
readln
end.

uses crt;
var s,p:real;
    i:byte;
begin
clrscr;
s:=1000;
writeln('Начальная сумма вклада=1000, месячный процент=2');
i:=1;
repeat
  p:=s*0.02;
  writeln('Прирост за ',i:2,' месяц=',p:0:2);
  s:=s*1.02;
  i:=i+1;
until i>10;
readln
end.