Такая проблема пишу в бат файле deltree /y c: \program files (x86)\steam\config не удаляет файлы но deltree /y c: \users\drake\appdata\roaming\microsoft\windows\recent почему то удаляет файлы пишу дальше del /s /f /q c: \program files (x86)\steam\config опять файлы не удаляются как быть

Вес 1 изделия - 89,4 г количество изделий - 1 000 000 шт. общий вес - ? 89,4  *  1  000  000 =89 400 000 г = 89  400 кг = 894 ц = 89,4 т ответ: общий вес 1   млн. изделий составляет 89,4 т. реализация в pascal: var m, ves: real;       k: integer; begin   write('введите вес одного изделия в граммах:   '); readln(m);   write('введите количество этих изделий:   '); readln(k);   ves: =m*k;   write('общий вес составит  ', ves: 7: 2, 'г =  ', ves/1000: 7: 2,'кг =  ', ves/1000000: 7: 2,'т'  ); end.

Uses crt; var r: array [1..10] of integer;         nev, n, min,i, zap: integer; begin     clrscr;     write('введите возраст невесты: '); readln(nev);     write('введите число женихов: '); readln(n);     if n< 2 then     for i: =1 to n do     begin     write('введите возраст ',i,'-го жениха: '); readln(r[i]);     end;     i: =0; zap: =0;     while (zap=0) and (i< =n) do begin         i: =i+1;       min: =nev-r[i];       if min> 0 then zap: =i;     end;     if i< > n then     begin       for i: =zap to n do       begin           if min> (nev-r[i]) then           begin             zap: =i;             min: =nev-r[i];             end;         end;       writeln('самый молодой жених старше невесты в возрасте ',r[zap], ' лет. разница в возрасте составляет ', min, ' лет.');       writeln ('по счету это ',i,'-ый жених');     end     else writeln('среди женихов нет подходящего для нашей невесты.');   end;   else writeln('число женихов должно быть более 2! '); end.