PASCAL "МОДУЛИ"

[vitekbest]

Здравствуйте, господа, программеры, прошу помочь с задачей на модули.

Пусть процедура сокр(a,b,p,q) от целых параметров (b не равно 0) приводит дробь a/b к несократимому виду p/q.
Описать данную процедуру и использовать её для приведения дроби 1+1/2+1/3+...+1/20 к несократимому виду c/d.

Код всей программы очень нужен!

Заранее благодарен.

[Stilet]

Наработки есть? Хотя бы как на бумаге решаешь.
Если нет - перенесу во Фриланс.

[maks2020]

procedure scor(a,b:integer; var p,q);
while (a1<>0)and(b1<>0) do
if a1>b1 then a1:=a1 mod b1;
         else b1:=b1 mod a1;
      if a1=0 then f:=b1 else f:=a1;
 p:=a div f ;
 q:=b div f;
 end;
 ...
 c:=0;
 d:=1;
 for i:=1 to 20 do
 socr(c/d+1/i=(i+d)/di);
 end;
end.