СДЕЛАТЬ В EXCEL. 5 ЗАДАНИЕ

Клавиатура, джойстик, сканер, (принтер - устройство вывода)
Монитор, графопостроитель, принтер, (мышь -  устройство ввода).
Жёсткий диск, flash-память, компакт-диск, (процессор - не элемент памяти) .
Принтер, акустические колонки, наушники, (микрофон -  устройство ввода).
(Системный блок -  обобщенное), центральный процессор, оперативная память, жёсткий диск, блок питания.
Системный блок, клавиатура, мышь, монитор, (акустические колонки - не обязательны).
Видеокарта, (карта расширения, звуковая карта, сетевая карта.
Enter, (End  - др. функциональное назначение), Esc, Delete.
(Цветовой принтер - не существует), лазерный принтер, матричный принтер, струйный принтер 

слова, которые нужно удалить - в скобках, и пояснения, почему так

Const n=7;
Day:array[1..7] of string[15] = ('Понедельник','Вторник','Среда','Четверг','Пятница','Суббота','Воскресенье');
var
 T:array[1..7] of integer;
 D: array[1..7] of real;
 i,k:byte;
 s:integer;
 SR:real;
begin
 S:=0;
 randomize;
 Writeln('Температура в течение недели:');
 for i:=1 to n do
  begin
   T[i]:=random(50)-25;
   S:=S+T[i];
   write(T[i]:4);
  end;
 writeln;
SR:=S/n;
writeln('Средняя температура: ',SR:3:2);
k:=0;
Writeln('Температуры ниже средней в дни : ');
for i:=1 to n do
 if T[i]<SR then
  begin
     write(Day[i]:15);
     k:=k+1;
  end;
writeln;
writeln('Всего ',K,' дня(ей)');
writeln('Массив отклонений:');
for i:=1 to n do
 begin
  D[i]:=T[i]-SR;
  write(d[i]:8:3);
 end;
end.