Нужна программа на паскале по этой . поле засеяли рожью и пшеницей на площади 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