В программе использованы команды эмулятора машины Поста К.Полякова: > N переместить каретку вправо на 1 ячейку и перейти к строке с номером N < N переместить каретку влево на 1 ячейку и перейти к строке с номером N 0 N записать в текущую ячейку «0» (стереть метку) и перейти к строке с номером N 1 N записать в текущую ячейку «1» (поставить метку) и перейти к строке с номером N ? N, M если текущая ячейка содержит «0» (не отмечена), то перейти к строке с номером N, иначе перейти к строке M . остановить программу
var a,b:integer;
begin
readln(a,b) ;
while a<>b do
begin
if a>b then a:=a-b
else b:=b-a;
end;
writeln(a);
end.