Задание

Определите, что будет напечатано в результате выполнения следующей программы.

var s, n: integer;

begin

s := 31;

n := 9;

while s mod n >= 3 do begin

s := s + 8;

n := n + 7;

end;

writеln(s)

end.