что не опнятно именно? как работает блок-схема?
если в блок-схеме дело, то объясню. Это цикл While(пока). Пишу блок-схему на русском.
Начало
Ввод х, у
Пока х=у, если да то вывод Х и уход на конец.
если нет, идёт дальше условный оператор if(если).
Если x>y если да, то ячейке х присвой значение х-у, если нет, то ячейке у присвой значение у-х. Дальше программа уходит на повтор.
Объясню на примере чисел.
вводим данные х=10, у=15;
10 не равно 15, значит идём на условный оператор if
10 < 15, ячейке У присваиваем значение 15-10
на экране 5.
на всякий могу написать программу.
Program af;
uses crt;
var x,y:integer;
begin
clrscr;
readln(x,y;
while x=y do begin
if x>y then x:=x-y
else Y:=Y-X;
end;
writeln(x);
readln;
end.