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

Спасибо проверил 100% верно работает лайк и УДАЧИ!

В следующих вопросах

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

понятно

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.

var a,b,nod:integer;beginreadln(a,b);if a>=b then nod:=a mod b else nod:=b mod a;writeln(nod)end.