Запас рыбы в пруду х тон. Ежегодно прирост рыбы составляет 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.