Var s, n: integer; begin
s := 0;
n := 0;
while 2*s < 111 do
begin
s := s + 8;
n := n + 2
end;
writeln(n) end

Maximm2    1   05.11.2020 12:09    6