Найди и отметь лишнее устройство в группе: мышь световое перо тачпад джойстик клавиатура

Световое перо или тачпад.Скорее всего световое перо.

Джойстик ,думаю так)

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(m,n,-99,99);
  a.Println(4); Writeln(4*a.ColCount*'-');
  Writeln('Суммы по строкам');
  a.Rows.Select(row->row.Sum).Println;
  Writeln('Произведения по столбцам');
  a.Cols.Select(col->col.Aggregate(BigInteger(1),(p,q)->p*q)).Println
end.

Пример
Количество строк и столбцов в массиве: 5 4
*** Исходный массив ***
 -99 -70  -9 -24
  87 -34  66  -5
  92 -65  -9 -51
  61  99  79  17
 -40  22  75  88

Суммы по строкам
-202 114 -33 256 145
Произведения по столбцам
1933446240 -336936600 31675050 -9155520

Program a;  // имя программы
var n:string; // четырехзначное число будем вводить с клавы
var n1, n2, n3, n4, err: integer; // n1 - n4 это цифры числа, например 1234
var sa: double; // среднее арифметическое
Begin // начало
Read( n ); // вводим с клавиатуры число N
Val( n[1], n1, err ); // первая цифра числа N
Val( n[2], n2, err ); // вторая цифра числа N
Val( n[3], n3, err ); // третья цифра числа N
Val( n[4], n4, err ); // четвертая цифра числа N
sa := ( n1 + n2 + n3 + n4 ) / 4;  // находим среднее арифметическое
if ( sa / 2 = Trunc( sa / 2 ) ) and ( sa > 5 ) then Write( sa ); // если оно четное и больше пяти - выдаем значение на экран
End.  // конец