Какова будет высота растения через х месяцев (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.