ПОМОГИТЕ, пожалуйста :)
Получив на вход число x этот алгоритм печатает число M. Известно что x>100. Укажите наименьшее такое число x при вводе которого алгоритм печатает 16
var x,L,M:integer;
begin
readln(x);
L:=x-16;
M:=x+16;
while L<>M do
if L>M then
L:=L-M
else
M:=M-L;
writeln(M);
end.