home *** CD-ROM | disk | FTP | other *** search
/ CD Action 48 / cdactioncoverdisc482000.iso / Bonus / bon.exe / pascal / prog055.pas < prev    next >
Pascal/Delphi Source File  |  2000-03-24  |  187b  |  17 lines
  1. program program055;
  2.  uses crt;
  3.   var d:byte;
  4.       s:string;
  5.  
  6. procedure przyklad;
  7.  begin
  8.   d:=0;
  9.   getdir(d,s);
  10.   write(s);
  11.  end;
  12.  
  13. begin
  14.  clrscr;
  15.  przyklad;
  16.  readkey;
  17. end.