Miscellany

   var
    CPfile : Text;
    Ident  : String[12];

  Begin

    Assign(CPfile,'C:\CP.htm');
    Reset(CPfile);

    readln(CPfile,Ident);
    Writeln(Ident);


    Close(CPFile);

  End;