Составить 2 программы:
1.Создаёт текстовый файл mir.txt содержащий 12 чисел введённых с клавиатуры.
2.Считать информацию из текстового файла mir.txt и вывести её на экран манитора.

Var
  r, i : integer;
begin
  assign (output, mir.txt); rewrite (output);
  for i := 1 to 12 do
  begin
    read (r);
    write (r);
  end;
end.

Если информация любая, то:
var
  c : char;
begin
  assign (input, mir.txt); reset (input);
  while not eof do
  begin
    read (c);
    write (c);
  end;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.