30 баллов!!Напишите программу для решения следующеи задачи. В некотором году на

program raf105;

var k,a,p,b,m,let:real;

begin

write('Площадь участка (га.): ');

readln(k);

write('Средняя урожайность с гектара (ц.): ');

readln(a);

write('Увеличение участка за год (% от прошлогодней площади): ');

readln(p);

write('Рост урожайности за год (% от прошлогодней урожайности): ');

readln(b);

write('Желанный сбор (ц.): ');

readln(m);

while a lt; m do

begin

 k+= (k/100*p);

 a+= (a/100*b);

 let+= 1;

end;

writeln;

writeln('Желанная урожайность (',m,' ц.) будет достигнута через ',let,' лет');

writeln('При этом, площадь участка будет сочинять примерно ',round(k),' га.');

end.

Язык PascalABC