Составьте в некотором году на участке 100 гектар средняя урожайность составляла 20ц.. после этого площадь увеличивается на 5%, а урожайность на 2%. определите в каком году площадь участка станет больше 120 гектар

Program getar;
uses crt;
var
S,ur:real;
god:integer;
begin
god:=0;
s:=100; //площадь
ur:=20; // урожайность
while s<=120 do
begin
god:=god+1; // подсчет лет
s:=s+((s/100)*5); // площадь ув. на 5%
ur:=ur+((ur/100)*2);// урожайн. ув. на 2%
end;
writeln('Cherez ',god,' goda ploshad budet bolshe 120 ');
end.

мне трудно объяснять на словах держи программу в ней алгоритм подсчета и тд..