about summary refs log tree commit diff
path: root/12/TP-HN-2008/R2/HC.pas
blob: 8e6b182352b83e9ac9a4e3441b6e2d488d4731ce (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
var
  f : text;
  m, n, i, j : byte;
  a : array[1..200, 0..200] of smallint;

function out

begin
  assign(f, 'HC.INP');
  reset(f);
  readln(f, m, n);
  for i := 1 to m do
    begin
      a[i, 0] := 0;
      for j := 1 to n do
        read(f, a[i, j])
    end;
  close(f);
  assign(f, 'HC.OUT');
  rewrite(f);
  writeln(f, out(a));
  close(f)
end;