Ну вот я кое что нашла проверила , все правильно вроде )
Только это не квадрат, с разными сторонами.
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ "...\Отделы\Обмен\";
ПЕР
a, b: ЦЕЛ;
УКАЗ
a := 37;
b := 92;
Вывод.ЧЦел("%d^%d", a * b, a * 2 + b * 2, 0, 0)
КОН Задание.
Var a,b,c,d,m:integer;begina:=1; b:=2; c:=3; d:=4;println('Введите число от 1 до 4');readln(m);if m=a then print('Пики') else if m=b then print('Трефы')else if m=c then print('Бубны') else if m=d then print('Черви') else print('Вне диапозона');
end.
На каждый вид мышки можно выбрать 12 видов клавиатур => 12*10=120 разных комбинаций "мышка-клавиатура"