Смысл не пойму задачи

[Ильдар Новичок]

Описать процедуру Frac1(a,b,c,d) преобразующую дробь, а/b к несократимому виду p/q (все параметры процедуры целого типа а и b - входные, p и q - выходные).Знак результирующей дроби приписывается числителю (т.е. q>0). С помощью Frac1 найти несократимые дроби, равные a/b+c/d, a/b+e/f, a/b+g/h, (числа a,b,c,d,e,f,g,h даны).

[min@y™]

Описать процедуру Frac1(a,b,c,d) преобразующую дробь, а/b к несократимому виду p/q (все параметры процедуры целого типа а и b - входные, p и q - выходные).Знак результирующей дроби приписывается числителю (т.е. q>0).

А что за параметры c,d?

[eoln]

Наверное, выходные данные - числитель и знаменатель несократимой дроби.
Если так, то ничего сложного, одна математика 5 класса. Вот ф-ии для НОК и НОД

function NOD(a, b: integer): integer;//наибольший общий делитель
begin
  if a = 0 then NOD := b
  else NOD := NOD(b mod a, a)
end;

function NOK(a, b: integer): integer;//наименьшее общее кратное
begin
    NOK := (a div NOD(a, b)) * b;
end;

Сократить можно примерно так

  y := NOD(chisl, znam);
  chisl := chisl div y;
  znam := znam div y;