Сначала небольшие пояснения.
Если после первого года количество рыбы в пруду не уменьшится, то вылов небольшой, и так может продолжаться бесконечно.
Если уменьшится, то можно попробовать сделать то, что написано в условии, и посмотреть, когда всё закончится.
===== PascalABC.NET =====
begin
var (x, y, z) := ReadReal3('Введи x, y, z:');
var v := (1 + Sqr(Sin(x + y))) /
Abs(x - 2 * y / (1 + x * x * y * y)) * x ** Abs(y) +
Sqr(Cos(ArcTan(1 / z)));
Write(v)
end.
program first;
var a,b: integer;
begin
randomize;
{Получаем значение с клавиатуры}
readln(a);
{Выбираем случайное число}
b:= random( 100);
writeln(b);
{Сравниваем данные значения}
if a = b then writeln('Данные числа равны')
else if a > b then writeln('Первое число больше второго')
else if b > a then writeln('Первое число меньше второго');
end.
1) винчестер
2) джойстик
3) клавиатура
4) монитоо
5) дисковод
6) дисплей
7) плоттер
8) принтер
9) модем
10) дигитайзер
11) сканер
12) процессор
13) мышь
14) трекбол