Написать в тетради программу, которая создаёт файл numbers.txt и записывает в него 5 введенных пользователем целых чисел. (Pascal)

Привет! Вот программа на 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');
end.
```

Надеюсь, это поможет!