PROGRAM Files (Input,Output,InData,OutData);

VAR
  InData, OutData : Text;
  Name : String;
  i, j : Integer;

BEGIN
  Writeln('Enter name of file:');
  Readln(Name);
(*  Assign(InData,Name);*)

  Reset(InData,Name);
  Readln(InData,i,j);
  Writeln(i,j);
END.