Составить 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.

1 задача.
var a,i:integer;       
    f1:text;
begin
assign (f1,'mir.txt'); 
rewrite (f1);
for i:=1 to 12 do begin read ( a);
                                 write (f1,a);
                                            end;
close (f1);
end.

2 задача.
var a,i:longint;       
     f1:text;
     begin
  assign (f1,mir.txt'); 
  reset(f1);
  while not eoln(f1) do writeln (a);
  close (f1);
end.

Писала на Паскале.