Правила форума
Mkdir.PASLanguage:
Русский
English
{Mkdir.PAS}
▀▀▀▀▀▀▀▀▀▀▀▀▀
{Sample code for the MkDir procedure.}
begin
{$I-}
{ Get directory name from command line }
MkDir(ParamStr(1));
if IOResult <> 0 then
Writeln('Cannot create directory')
else
Writeln('New directory created');
end.
::
::
::
