Program P119_37;
{--------------------------------------------------------------
    Se da un fisier text in care fiecare rand reprezinta 
    2 numere naturale separate printr-un spatiu.
    Sa se creeze alt fisier, ce insereaza intre cele 2 numere 
    ale fiecarui rand media aritmetica a acestor numere. 
 --------------------------------------------------------------}
uses crt;
var fin, fout: text;
    a, b: Word;
    m: real;
    sin, sout: string;
begin
  clrscr;
  sin  := 'listnum.txt'; {Fisierul de intrare}
  sout := 'mednum.txt';  {Fisierul de iesire}

  {Deschiderea fisierelor}
  assign(fin, sin);
  assign(fout, sout);
  reset(fin);
  rewrite(fout);

  while not eof(fin) do {Cat timp nu se ajunge la sfarsitul fisierului}
  begin
     readln(fin, a, b);
     m := (a+b) / 2;                 {Media aritmetica}
     writeln(a:7, m:9:1, b:7);       {Afisarea la consola}
     writeln(fout, a:7, m:9:1, b:7); {Scrierea in fisier}
  end;

  {Inchiderea fisierelor}
  close(fin);
  close(fout);
  readkey;
end.