Написать программу для нахождения нод abc pascal

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;
begin
readln(a,b);
if a>=b then nod:=a mod b else nod:=b mod a;
writeln(nod)
end.