алгоритм евклида Опции

[Feagor]

условие в прикрепленном файле.
вот то что сделал, дальше что делать не врубаюсь

uses crt;
 function nod(a, b:longint):longint;
 begin
  if (a=0) or (b=0) then if a=0 then nod:=b
                                else nod:=a
                    else if a >= b then nod:=nod(a mod b,b)
                                   else nod:=nod(a,b mod a);
 end;
 var f,g,i:integer;
 ff,aa:array[1..1000] of integer;
  begin
    clrscr;
    read(f,g);
    ff[1]:=f;
    ff[2]:=g;
    i:=2;
    while ff[i] mod ff[i-1]>0 do
        begin
         inc(i);
         ff[i]:=ff[i-1] mod ff[i-2];
         aa[i]:=ff[i-1] div ff[i-2];
        end;
    readkey;
  end.

Сообщение отредактировано: Feagor - 10.01.2008 16:11

[Tan]

Тут материал с пояснением.