СОСТАВЬТЕ ПОЖАЛУЙСТА АЛГОРИТМ!!в неком году на участке 100 гектар средняя урожайность

Program getar;
uses crt;
var
S,ur:real;
god:integer;
begin
god:=0;
s:=100; //площадь
ur:=20; // урожайность
while slt;=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.

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