Паскаль / do9 / iriepas201 / Irie Pascal / samples / rd

//*************************************************
// This program removes (i.e. erases) a directory
// First it asks for the name of the directory
// Then it calls rmdir to remove the directory
//************************************************
program rd(input, output);
var
   fn : filename;
begin
   write('Which directory do you want to delete? ');
   readln(fn);
   rmdir(fn);
end.