гражданин открыл счёт в банке вложив x рублей под y% годовых через сколько лет сумма вклада превысит z рублей

Напишите программу в чтобы можно было подставить в паскаль

var x,y,z:real;

n:integer;

BEGIN

n:=0;

write('Сумма вклада: ');

readln(x);

write('Процент головых: ');

readln(y);

write('Сумма через n лет: ');

readln(z);

while x<=z do begin

x:=x*(1+y/100);

n:=n+1;

end;

writeln(n);

end.