Нужно написать программу на языке Паскаля, которая решит задачу.

Около школы выделен огороженный квадратный участок под цветы. Сторона участка - а. В центре участка ребята создали круглую клумбу радиусом R. Каждый год ученики подсаживали новые цветы и увеличивали радиус клумбы на Р %. Через сколько лет ребята не смогут подсадить нужное количество цветов (помешает забор) , если участок - квадрат со стороной а?
Например: при А=30, R=6, P=40 Ответ 3

Моя программа, но она не правильно считает. Прошу помочь. Очень нужно.

program P2;

var

a, r, p,k: integer;

x: real;

begin

writeln('Введите a, r, p');

read(a, r, p);

x:=r;

k:=0; //k - количество лет

x:=x+x*p/100;

if (x<=a/2) then k:=k+1;

writeln('Количество лет ',k);

end.