Паскаль абс задача:в первый год поймал старик три рыбы своим неводом. С каждым годом море
благоволило старику все более
принося на три рыбы больше прежнего.
Сколько рыб съели старики
за тридцать лет и три года?

1. 1 год 3 рыбки, 2 год 1 рыбка, 3 год ещё одна и того 35 рыбак он поймал, ну и столько они сели.

Объяснение:

program xxx;

  var i, n : integer;

begin

  write ('введите число n-');

  readln (n);

  writeln('делители числа: ');

  for i : =1 to n do

    if n mod i = 0 then writeln (i)

end.

var n,z: longint;

begin

  read(n);

  z: =abs(n);

  z: =z-2;

  writeln(z);

end.