about summary refs log tree commit diff
path: root/tht/C/TP-2016/set.pas
diff options
context:
space:
mode:
Diffstat (limited to 'tht/C/TP-2016/set.pas')
-rw-r--r--tht/C/TP-2016/set.pas24
1 files changed, 0 insertions, 24 deletions
diff --git a/tht/C/TP-2016/set.pas b/tht/C/TP-2016/set.pas
deleted file mode 100644
index c36dc23..0000000
--- a/tht/C/TP-2016/set.pas
+++ /dev/null
@@ -1,24 +0,0 @@
-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.
\ No newline at end of file