Initial commit

1 files changed, 23 insertions, 0 deletions

diff --git a/12/TP-2008/R2/HC.pas b/12/TP-2008/R2/HC.pas
new file mode 100644
index 0000000..8e6b182
--- /dev/null
+++ b/12/TP-2008/R2/HC.pas
@@ -0,0 +1,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;