Что выполняет команда md c: \one\tvo

Создаст папку "one" на диске c, если её ещё там нет, а в ней создаст подпапку "tvo".

Var text,  slovo,  max: string; begin     writeln('введите строку, разделенную пробелами: '); readln(tex);   text: = text  +  '  ';     max: ='';     while pos(' ',text)  < >   0 do       begin       slovo : =  copy(text,  1,  pos(' ',text)  -  1);       delete(text,  1,  pos(' ',text));       if length( slovo )  >   length(max)then max: =  slovo ;       end;     writeln('самое длинное слово: "  ',max,'  " его длина ',length(max)); readln; end.

// pascalabc.net 3.1, сборка 1171 от 15.02.2016 begin   var i,j: integer;   var n: =readinteger('n=');   var a: =arrrandom(n,10,99); a.println;   var imax: =0;   var imin: =0;   for i: =1 to n-1 do       if a[i]> a[imax] then imax: =i       else           if a[i]< a[imin] then imin: =i;   if imin< imax then begin       for i: =imin+1 to imax-1 do           for j: =imin+1 to imax-1 do               if a[i]> a[j] then swap(a[i],a[j])       end   else       for i: =imax+1 to imin-1 do           for j: =imax+1 to imin-1 do               if a[i]> a[j] then swap(a[i],a[j]);   a.println end. тестовое решение: n= 15 46 87 95 49 86 17 43 61 15 57 23 60 84 75 82 46 87 95 86 61 49 43 17 15 57 23 60 84 75 82