12/TP-2008/R1/BL4.pas


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

var
  f : text;
  n : word;
  a, b : array of longword;
  tmp0, tmp1 : longword;

procedure ins(var l : array of longword; x : longword);
  begin
    setlength(l, length(l) + 1);
    l[length(l) - 1] := x
  end;

begin
  setlength(a, 0);
  setlength(b, 0);
  assign(f, 'CLB.IN');
  reset(f);
  readln(f, n);
  for i := 1 to n do
    begin
      readln(f, tmp0, tmp1);
      ins(a, tmp0);
      ins(b, tmp1)
    end;
  close(f);