На счёт в банке положили N денег под M процентов годовых. Какая сумма будет храниться на счету через X лет.

program bank;
var
m,i,n,x,s:real;
begin
Writeln('Сумма вклада');
Readln(n);
Writeln('Процентов в год');
Readln(m);
Writeln('Сколько лет');
Readln(x);
s:=(n*m)/100;
repeat
begin
n:=n+s;
i:=i+1;
end;
until (i>=x);
Writeln('Суммма по окончанию вклада',n)
end.