Создать файл состоящий из n - случайных целых чисел (n задается с клавиатуры), распечатать этот файл и создат

Решение Pascal

var n: integer; beginassign (input,'input. txt'); reset (input); assign (output,'output. txt'); rewrite (output); readln (n); writeln (n); close (input); close (output); end.