Какова будет высота растения через х месяцев (6), если за месяц прирост составляет а% (5%). Начальный рост - у см (20). Решение по Турбо Паскалю.

Var

A, ae:real;

N, i:integer;

Begin

WriteLn ('Введи начальный рост');

ReadLn (A);

WriteLn ('Введи кол-во месяцев');

ReadLn (N);

WriteLn ('Введи прирост в месац в %');

ReadLn (ae);

ae:=ae/100;

For i: = 1 to N do

A:=A * (1+ae);

WriteLn (A);

ReadLn

End.