uses WinDos;

const
 CDrive:Byte = 0;

var
 CurDir: PChar;
 drv: char;
 ret: byte;
begin
 GetMem(CurDir, 80);
 GetCurDir(CurDir, CDrive);
{ Writeln('The current directory on drive c is ', CurDir,'.');
}
 drv:=curdir[0];
 ret:=ord(drv)-64;
 writeln(drv,': Retuen value is ',ret);
 halt(ret);
end.