Составить 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;beginassign (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.Писала на Паскале.