НСД (Евклід)

Pascal Алгоритми

while + ввід/вивід

Блок-схема за ДСТУ

Вихідний код

program GCD;
var a, b, t: integer;
begin
  readln(a, b);
  while b <> 0 do
  begin
    t := b;
    b := a mod b;
    a := t;
  end;
  writeln(a);
end.