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

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

Спасибо

Пожалуйста. Inc - от английского "increase". Еще и Dec() есть...

Можешь помочь с подпрограммой

Через procedure

Вопросы, не относящиеся к данной задаче, пишите в Личных сообщениях.

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