about summary refs log tree commit diff
path: root/THT/C/TP-2016/set.pas
blob: c36dc2316b1022d00c963a6bf7494c5cadd7ae0e (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
var
  f : text;
  m, n, id : shortint;
  {This, because random failed on Windows, may because of not having /dev/urandom}
  out : array[1..8] of shortint = (5, 1, 3, 7, 2, 6, 4, 8);

begin
  assign(f, 'set.inp');
  reset(f);
  readln(f, m, n, id);
  close(f);
  if id = 2 then
    begin
      m := n;
      n := 5
    end
  else
    n := 4;
  assign(f, 'set.out');
  rewrite(f);
  for id := 1 to m do
    writeln(f, n, ' ', out[id]);
  close(f)
end.