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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
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.
|
