Question

помогите пожалуйста

Answer 1

var x,y,m,i:integer;begin//writeln('Ввести х и у, при условии 1< x < y < 10 000');//readln(x,y);x:= 24;y:= 32;for i:=2 to y do if (x mod i = 0) and (y mod i = 0) then m:=i;write (m);end.