Что не так? Как исправить предупреждение ? Ниже скрин и весь код var x, L, M, f: integer;beginfor f := 100 to 321565 dobeginL := x - 16;M := x + 16;x := f; while L <> M doif L > M thenL := L - MelseM := M - L;if M = 16 then writeln(x)end;end.