Даны числа a и b найти общие делители P.S. ** Паскале

Question

Даны числа a и b найти общие делители
P.S. На Паскале

Answer 1

Var
 a, b, i: integer;

begin
  readln(a, b);
  for i:=1 to max(a, b) do
    if (a mod i = 0) AND (b mod i = 0) then
      write(i, ' ');
end.

Comments

спасибо огромное

---

у меня решать такие задачи вообще не получается