Соберите ПК со всеми основными устройствами, необходимые для полноценной работы. Напишите полную характеристику каждого устройства?

1. Количество ядер процессора 
2. Частота процессора и частота системной шины (FSB) процессора 
3. Объем и количество кэш-памяти процессора (CPU)
4. Совпадение частоты системной шины CPU и материнской платы
5. Частота оперативной памяти (RAM) и частота шины памяти материнской платы 
6. Объем оперативной памяти 
7. Используемый на материнской плате чипсет (Intel, VIA, SIS, nVidia, ATI/AMD)
8. Используемая графическая подсистема – встроенная в материнскую плату или дискретная 
9. Тип интерфейса винчестера (HDD) – параллельный IDE или последовательные SATA и SATA-2
10. Кэш винчестера

И это еще не все, можно продолжать. 

const n=10;
var
  i,k,min,max:integer;
  x,y:array[1..n]of integer;
  z:array[1..2*n]of integer;

function four(n:integer):string;
var s:string;
begin
repeat
  s:=s+IntToStr(n mod 4);
  n:=n div 4;
  until n=0;
result:=ReverseString(s);
end;

begin
for i:=1 to n do
  begin
  x[i]:=random(-10,10);
  y[i]:=random(-10,10);
  if (x[i] mod 2=0) and (x[i]>0) then
    begin
    k:=k+1;
    z[k]:=x[i];
    if k=1 then
      begin
      min:=z[1];
      max:=z[1];
      end;
    if z[k]>max then max:=z[k];
    if z[k]<min then min:=z[k];
    end;
  if (y[i] mod 2=0) and (y[i]>0) then
    begin
    k:=k+1;
    z[k]:=y[i];
    if k=1 then
      begin
      min:=z[1];
      max:=z[1];
      end;
    if z[k]>max then max:=z[k];
    if z[k]<min then min:=z[k];
    end;
  end;
write('Массив X:');
for i:=1 to n do write(x[i]:4);
writeln;
write('Массив Y:');  
for i:=1 to n do write(y[i]:4);
writeln;
write('Массив Z:');  
for i:=1 to k do write(z[i]:4);
writeln;
write('Измененный массив Z:');
for i:=1 to k do
   begin
   if z[i]=min then z[i]:=max
     else
     if z[i]=max then z[i]:=min;
   write(z[i]:4);
   end;
writeln;
write('Массив Z по основанию 4:');  
for i:=1 to k do   write(four(z[i]):4);
end.