EX:7 p: 43.

var  S1,x,y,i,n : integer;
     s2,a,b,c : real;
     G, F : text;
     Begin
     assign (F, 'file.txt' ) ; rewrite(F);
      write ('Dati nr de linii');
      readln(N);

     write('Dati datele');
       For i:=1 to n do
          begin
      wHile not eof(F) do
      begin
      while not eoln(F) do
      begin
      readln(x); write(F,x);
      readln(y); write(F,y);
      readln(a); write(F,a);
      readln(b); write(F,b);
      readln(C); write(F,c);
      end;
      writeln(F);
      readln;
      end;
      end;
      close(F);
      reset(F);
      assign(G, 'file1.TXT');
      while not eof(F) do
      begin
      while not eoln(F) do
      Readln(F, x,y,a,b,c);
      Write(G, x, y, a, b, c);
      S1:= x+y;
      s2:= a+b+c;
      write('Suma nr intregi', S1);
      write('Suma nr reale', s2);
      end;
       readln (F);

      close(G); Close(F);
      readln;
      end.