Program TMHH; //Thu Muc Hien Hanh - Current Dir
var s:string;
    d:byte;
BEGIN
    writeln(' Lay Ten Thu Muc Hien Hanh ');
    writeln('       -----o0o-----');
    {SI-}
    GetDir(d,s);
    Write('Thu Muc Hien Hanh La: ');
    write(s);
    readln;        
END.