Рефират на тему "Суд над компютером" в Werd
Умоляю осталось 15 минут
Мне нужен скрин или фото с компютера ​

Uses crt;
var b:array [1..10] of real;
    min,max,x:integer;
    sum,pr,t:real;
begin
     sum:=0; pr:=1;
     for x:=1 to 10 do
     begin
          write('b[',x,']:'); readln(b[x]);
     end;
     min:=1; max:=1;
     for x:=1 to 10 do
     begin
         if b[x]<b[min] then min:=x;
         if b[x]>b[max] then max:=x;
     end;
     t:=b[min];
     b[min]:=b[max];
     b[max]:=t;
     if max>=min then
     for x:=min+1 to max-1 do
         sum:=sum+b[x]
     else
     for x:=max+1 to min-1 do
         sum:=sum+b[x];
     for x:=1 to 10 do
         if b[x]<0 then pr:=pr*b[x];
     for x:=1 to 10 do
         write(b[x],' ');
     writeln; writeln(sum);
     writeln(pr);
end.    

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

1. Процессор
2. Память
  2.1. Оперативная память
  2.2. Долговременная память
    2.2.1. Жесткий магнитный диск
    2.2.2. Дискета
    2.2.3. Флэш-память 
    2.2.4. Оптические диски
       2.2.4.1. CD
       2.2.4.2. DVD
3. Устройства ввода
  3.1. Клавиатура
  3.2. Мышь
  3.3. Сканер
  3.4. Графический планшет
  3.5.Цифровая камера
  3.6. Микрофон
  3.7. Джойстик
4. Устройства вывода
  4.1. Монитор
    4.1.1. Жидкокристаллический монитор
    4.1.2. Монитор на электронно-лучевой трубке
  4.2. Принтер
    4.2.1. Матричный принтер
    4.2.2. Струйный принтер
    4.2.3. Лазерный принтер