program t20;
var file1,file2 : text;
    nstudent : integer;

procedure readdata(var n : integer);
begin
  assign(file1, 'file1.dat');
  assign(file2, 'file2.dat');
  assign(merged.dat, 'merged.dat');
  reset(file1); 
  reset(file2);
  rewrite(merged);

end;


begin
  readdata(nstudent);
end.