вот то что сделал, дальше что делать не врубаюсь
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 -