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

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

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

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.