4. Известно, что x > 100. Укажите наименьшее такое (т. е. большее 100) число x, при вводе которого алгоритм печатает 40.var x, L, M: integer;beginreadln(x);L := x-10;M := x+30;while L <> M doif L > M thenL := L - MelseM := M – L;writeln(M);end.

label metka;
var x, L, M: integer;
begin
for var i:=100 to 300 do
begin
  x:=i
;L := x-10;
M := x+30;
while L <> M do
  if L > M then   
 L := L - M 
 else      
 M := M - L; 
   If (M=40)  then 
   begin
   Println(x); 
  goto metka; 
  end; 
   end; 
 metka:
end.