срочно помогите пожалуйста ( Pascal) текст

[qwasoc20]

срочно помогите пожалуйста ( Pascal) текст:
дана правильная рациональная несократимая дробь a/b. С этой дробью выполняется следующая операция: к числителю и знаменателю дроби прибавляется 1, после чего дробь сокращается. Определите, можно ли при помощи таких операций из дроби a/b получить другую дробь правильную дробь с/d.
программа получает на вход четыре целых числа a,b,c,d причем 0<a<b<=10^5,0<c<d<=10^5, числа a и b взаимно простые, числа c и d взаимно простые, a/b неравно c/d.
программа должна вывести одно натуральное число - сколько описанных операций нужно применить, чтобы из дроби a/b получить дробь c/d. если это сделать невозможно, программа должна вывести число 0.

[AnimeLover]

Здарова,чел;мы тоже олимпиаду пишем!!

[olej.tsil]

Сообщение от AnimeLover

Здарова,чел;мы тоже олимпиаду пишем!!

... безуспешно

[newerow1989]

procedure abcd(var a,b:integer);
var i,k:integer;
begin
   a:=a+1;
   b:=b+1;
   k:=1;
   For i:=a downto 1 do
      If (a mod i=0) and (b mod i=0) then
      begin
         k:=i;
         Break;
      end;
   a:=a div k;
   b:=b div k;
end;

var a,b,c,d,k:integer;
begin
   Write('a = ');Readln(a);
   Write('b = ');Readln(b);
   Write('c = ');Readln(c);
   Write('d = ');Readln(d);
   k:=0;
   Repeat
      abcd(a,b);
      Writeln(k,') ',a,'/',b);
      k:=k+1;
   Until (a=c) and (b=d) or (b>d);
   Writeln('------');
   If (a=c) and (b=d) then
      Writeln(k) else
      Writeln(0);
   Readln;
end.