Помогите написать программу для нахождения НОД ABC Pascal

Question

Помогите написать программу для нахождения НОД ABC Pascal

Answer 1

Var
  a,b:integer;
begin
  Read(a,b);
  while a <> b do
    if a > b then a := a - b
    else b := b - a;
  Writeln(a)
end.

Comments

Еще бы алгоритм Евклида не работал! Он тысячелетиями проверен)))

Answer 2

Var a,b,nod:integer;
begin
readln(a,b);
if a>=b then nod:=a mod b else nod:=b mod a;
writeln(nod)
end.