Выполни действие и запиши верный ответ

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 < m do

begin

 k+= (k/100*p);

 a+= (a/100*b);

 let+= 1;

end;

writeln;

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

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

end.

Язык PascalABC

1.

program ll1;

var A: array[1..20] of integer;

i: integer;

begin

Randomize;

for i:=1 to 20 do

begin

A[i]:=random();

if A[i] mod 2 = 0 then writeln(A[i]);

end;

end.

2 .

program ll1;

const N = 20;

var A: array[1..20, 1..20] of integer;

i, j, k: integer;

begin

for i:=1 to N do

for j:=1 to N do

begin

readln(A[i, j]);

if (A[i, j] >= 0) and (A[i, j] < 10) then

k:=k+1;

end;

writeln(k);

end.

3.

program ll1;

var A: array[1..20] of integer;

k, x, y: integer;

begin

Randomize;

readln(x);

readln(y);

for k:=1 to 20 do

begin

A[k]:=random();

if A[k] >= 0 then

A[k]:=x;

else

A[k]:=y;

end;

end.