Записать в файл 10 цифр вводимых пользователем

program zz1;

var

n, i: integer; / / задаем переменные целого типа

f2: text; / / задаем переменную текстового типа для работы с файлом

begin

assign (f2, 'output. txt'); / / связываем переменную текстового типа с файлом

rewrite (f2); / / открываем файл для записи

for i:=1 to 10 do / / запускаем цикл на 10 повторений

begin

read (n); / / вводим число с клавиатуры

write (f2, n, ' '); / / выводим число в файл

end;

close (f2); / / закрываем файл output

end.