Рост ребёнка на начало года 120 см. за месяц он подрастает на 2 процента.
Через сколько месяцев рост ребёнка превысит 150 см.
(ПОЖАЛУЙСТА решите 2 способами FOR и While).

Спасибо ОГРОМНОЕ!!!!!!!!!

varP, x:real;beginP:=120;while P<=150 dobeginP:=P+0.02*P;x:=x+1;end;write('Ребёнок подрастёт за:',x,' ','месяцев');end.