58 lines
1013 B
Plaintext
58 lines
1013 B
Plaintext
type
|
|
rect = record
|
|
a : longint;
|
|
b : longint
|
|
end;
|
|
arec = array of rect;
|
|
|
|
var
|
|
f : text;
|
|
c, d, e : rect;
|
|
|
|
function join(g, h : rect) : arec;
|
|
var n : byte = 0;
|
|
procedure j01n(p, q : longint);
|
|
begin
|
|
inc(n);
|
|
setlength(join, n);
|
|
join[n - 1].a := p;
|
|
join[n - 1].b := q
|
|
end;
|
|
begin
|
|
if g.a = h.a then j01n(g.a, g.b + h.b);
|
|
if g.a = h.b then j01n(g.a, g.b + h.a);
|
|
if g.b = h.a then j01n(g.b, g.a + h.b);
|
|
if g.b = h.b then j01n(g.b, g.a + h.a);
|
|
end;
|
|
|
|
procedure out(m : longint);
|
|
begin
|
|
assign(f, 'GH.OU');
|
|
rewrite(f);
|
|
writeln(f, m);
|
|
close(f);
|
|
halt
|
|
end;
|
|
|
|
procedure libl2(x, y, z : rect);
|
|
var i, j : rect;
|
|
begin
|
|
for i in join(x, y) do
|
|
for j in join(z, i) do
|
|
if (j.a = j.b) and (j.a <> 0) then
|
|
out(j.a)
|
|
end;
|
|
|
|
begin
|
|
assign(f, 'GH.IN');
|
|
reset(f);
|
|
readln(f, c.a, c.b);
|
|
readln(f, d.a, d.b);
|
|
readln(f, e.a, e.b);
|
|
close(f);
|
|
libl2(c, d, e);
|
|
libl2(d, e, c);
|
|
libl2(e, c, d);
|
|
out(0)
|
|
end.
|