Запас рыбы в пруду х тон. Ежегодно прирост рыбы составляет 30%, а вылов рыбы у тон. Через сколько запас рыбы станет z тон или меньше. Решить в паскале.

P. S.: неизвестные данные должны вводиться с клавиатуры.

program p24;

var x, y, z, k, r:real;

begin

write ('колитчество рыбы в пруду ') ; readln (x) ;

write ('сколько ежегодно вылавлеваеться рыбы ') ; readln (y) ;

write ('z:=') ; readln (z) ;

r: = (x*30) / 100;

if (y<=r) then write ('рыба не закончиться никогда')

else begin

while (x>z) do begin

x:=x-y;

x:=x + ((x*30) / 100) ;

k:=k+1;

end;

if (x<0) then x:=0;

writeln ('через ', k,' года в пруду останеться ', x,' тон рыбы') ;

end;

end.