From 95b46c031c06a7e0e2d3744185ea3a6c3fa866bf Mon Sep 17 00:00:00 2001 From: Raphael McSinyx Date: Fri, 25 Aug 2017 15:21:07 +0700 Subject: Revise 12/TP-HN-2008/R2 --- 12/TP-HN-2008/R2/HC.pas | 23 ----------------------- 1 file changed, 23 deletions(-) delete mode 100644 12/TP-HN-2008/R2/HC.pas (limited to '12/TP-HN-2008/R2/HC.pas') diff --git a/12/TP-HN-2008/R2/HC.pas b/12/TP-HN-2008/R2/HC.pas deleted file mode 100644 index 8e6b182..0000000 --- a/12/TP-HN-2008/R2/HC.pas +++ /dev/null @@ -1,23 +0,0 @@ -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; -- cgit 1.4.1