Задание

Ниже приведён алгоритм. Укажите наименьшее из таких чисел x, большее, чем 200, при вводе которого алгоритм напечатает 70.

var x, L, M: longint;

begin

readln(x);

L := 2*x-30;

M := 2*x+40;

while L <> M do begin

if L > M then

L := L - M

else

M := M - L;

end;

writeln(M);

end.