diff options
Diffstat (limited to 'THT-C/TP-2016/set.pas')
-rw-r--r-- | THT-C/TP-2016/set.pas | 24 |
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 |