var f: file of integer;
    k, i, a: integer;
Begin
  assign(f,'c:\1\f_int.dat');
  reset(f);
  read (f,a);
  Seek(f,FileSize(f)-1);
  read (f,i);
  writeln ('a=',a:4,' i=',i:4,' k=',FileSize(f));
  close(f);
end.