Составить на языке паскаль: в 1990 году на счет положили 5000 рублей под 14% годовых. в каком году вклад достигнет 1000000 рублей.

Program Project1;

var money: real; year:integer;

begin
  money:=5000;
  year:=1990;
  repeat
    money:=money+(money*14)/100;
    inc(year);
  until money >= 1000000;

  writeln('Result:=', year);

  readln;
end.