Привет! Вот программа на Pascal, которая создает файл numbers.txt и записывает в него 5 целых чисел, введенных пользователем: ``` program write_numbers; var numbers: array[1..5] of integer; i: integer; file_numbers: text; begin // запрашиваем у пользователя 5 целых чисел writeln('Введите 5 целых чисел:'); for i := 1 to 5 do begin write(i, '-е число: '); readln(numbers[i]); end; // открываем файл для записи assign(file_numbers, 'numbers.txt'); rewrite(file_numbers); // записываем числа в файл for i := 1 to 5 do begin writeln(file_numbers, numbers[i]); end; // закрываем файл close(file_numbers); writeln('Числа записаны в файл numbers.txt')