в первый год с яблони сняли 3 кг яблок каждый следующий урожай повышались на 20% когда с яблони снимут более 25 кг яблок паскаль

var a, i: integer;

begin a:=3;

         i:=1;

         while a<=25 do

         begin a:=a*1,2;

                  i:=i+1;

         end;

         writeln('на', i, 'год');

end.