1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

type
  TEu = class(Tobject)
    d: integer;
    s: integer;
    t: integer;
    procedure fill(a: integer; b: integer; c: integer);
  end;

procedure TEu.fill(a: integer; b: integer; c: integer);
begin
  d := a;
  s := b;
  t := c;
end;

function euclid(a: integer; b: integer): TEu;
var tmpeu: TEu;
begin
  tmpeu := TEu.Create;
  if b = 0 then 
  begin
    tmpeu.fill(a, 1, 0);
  end else
  begin
    tmpeu := euclid(b, a mod b);
    tmpeu := tmpeu.fill(tmpeu.d, tmpeu.t, tmpeu.s - floor(a / b) * tmpeu.t);
  end;
  result := tmpeu;
end;