Срочно!! Паскаль! Напишите пожалуйста программу для получения общих делителей двух заданных натуральных чисел

var    n, i, d1, d2: integer;begin    readln(d1, d2);    n := d1;    if d1 > d2 then n := d2;        for i := 1 to n do         if (d1 mod i = 0) and (d2 mod i = 0) then            write(i, ' ');end.