Помогите составить задачу на языке Паскаль:
В 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.