From 2f674dc80f0382f1c3178f435714960734dc9d3c Mon Sep 17 00:00:00 2001 From: Nguyễn Gia Phong Date: Sat, 6 Jun 2020 21:33:13 +0700 Subject: Reorganize stuff from secondary school --- tht/C/TP-2016/set.pas | 24 ------------------------ 1 file changed, 24 deletions(-) delete mode 100644 tht/C/TP-2016/set.pas (limited to 'tht/C/TP-2016/set.pas') 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 -- cgit 1.4.1