Задание
Ниже приведён алгоритм. Укажите наименьшее из таких чисел x, большее, чем 100, при вводе которого алгоритм напечатает 21.
var x, L, M: longint;
begin
readln(x);
L := 3*x - 6;
M := 3*x + 99;
while L <> M do
if L > M then
L := L - M
else M := M - L;
writeln(M)
end.
114
103
107
121