Нужна программа на Паскале по этой задаче.

Поле засеяли рожью и пшеницей на площади S1 и S2. Каждый год площадь ржи увеличивается на 25%, а площадь пшеницы увеличивается на 50%. Через сколько лет площадь ржи будет составлять меньше 50% от площади пшеницы.

Var

s1, s2:real;

y:integer;

begin

Write ('Введите площади под рожь и пшеницу: ') ;

Read (s1, s2) ;

y:=0;

while s1>=0.5*s2 do begin

s1:=1.25*s1;

s2:=1.5*s2;

Inc (y)

end;

Writeln ('Количество лет, через которые площадь под рожь') ;

Writeln ('станет вдвое меньше, чем под пшеницу, равно ', y)

end.

Пример решения

Введите площади под рожь и пшеницу: 1520 940

Количество лет, через которые площадь под рожь

станет вдвое меньше, чем под пшеницу, равно 7

Pascal abc

Program abc;

Var y0, y1, x:real;

I:integer;

Begin

I:=0; y0:=x; y1:=x;

Repeat

y0:=y0+y0*0.5;

y1:=y1+y1*0.25;

I:=I+1;

until y0*0.5=y1;

Writeln (I) ;

End.

Крч если я где то забыл и не поставил "; " Паскаль скажет, и насчёт until y*0.5"="y1, если не пойдёт поменяй знак