Написать программу в паскале в банк под 3% годовых кладут 1000 рублей. через сколько лет сумма на вкладе будет 1500 рублей?

Var
a:real;
b, c: integer;
begin
b:=0;
a:=1000;
while a<=1500 do
begin
a:=a+(a*0.03);
inc(c);
end;
write ('Через ', c,'лет ');
end.