Как открыть дисковод , если он не хочет открываться.я пробывала и иголочкой и перезагрузкой.ноль эффектов и даже кнопочка не горит и звука не издаёт.что мне делать? ( все пункты)

Заменяйте. скорей всего повреждена выдвигающая часть,попробуйте снять винтики с вынуть его 

Const       n = 30; type       array100 = array [1..100] of integer; var       a: array100;       i, t: integer;       f: boolean; procedure printarray(var a: array100); var       i: integer; begin       for i : = 1 to n do               write(a[i]: 3, ' ');       writeln; end; begin       randomize;       for i : = 1 to n do               a[i] : = random(99) - 50;                     printarray(a);             repeat               f : = true;               for i : = 1 to n - 1 do                       if (a[i] < 0) and (a[i + 1] > = 0) then begin                               f : = false;                               t : = a[i];                               a[i] : = a[i + 1];                               a[i + 1] : = t;                       end;       until f;       printarray(a);             readln; end.