Программирование циклов (free Pascal)

[Jon_Morgan]

Не могу понять где ошибка.
Вот задание: Вычислить за сколько лет в банке при начальном вкладе W и процентах годового прироста Pr Будет накоплена сумма Sum.
Прога:

program main;
var Sum, a: longint;
 Pr, W:real;
begin
 Writeln ('Введите значение W, Pr, Sum');
 readln (W, Pr, Sum);
 a:=0;
 repeat
 W:=W*(1+Pr/100);
 a:=a+1;
 until Sum<=W;
 writeln (a);
 readln;
end.

Когда ввожу дробную процентную ставку (Например Pr=3.5), то прога просто выключается без результата.

[ViktorR]

А у меня работает
И даже если сумма накопления меньше начального вклада.
Проверьте работу программы по шагам (F8)


Как-то так, ...