Задача на проценты (pascal)

[feeras]

В 1985 году урожай ячменя составил 20 ц с га. В среднем каждые два года за счет применения передовых агротехнических приемов урожай увеличивается на 5%. Определить, через сколько лет урожайность достигнет 25 ц с га.

program kolhoz;
uses crt;
var a:real;
b:integer;
begin
clrscr;
a:=20;
b:=0;
repeat
b:=b+2;
a:=a+20*0.05; (проблема в этой строчке: что не так?)
until a=25;
writeln ('Кол-во лет = ',b);
readkey;
end.

[IT-man]

a:=20;
b:=0;
repeat
b:=b+2;
a:=a*1.05; (проблема в этой строчке: что не так?)
until a>=25;

[feeras]

Сообщение от IT-man

a:=20;
b:=0;
repeat
b:=b+2;
a:=a*1.05; (проблема в этой строчке: что не так?)
until a>=25;

Cпасибо за помощь!