Создается матрица 10х10, заполняется случайными числами от 0 до 100, выводит исходную матрицу и Max элемент.
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
var a:=ReadArrReal(4).Sorted.ToArray;
if (a[0]=a[1]) and (a[2]=a[3]) then Writeln('Можно')
else Writeln('Нельзя')
end.
1) 110011; 63; 51; 33
2) 11010101; 325; 213; D5
3) 1001010010; 1122; 594; 252
4) 1011111; 137; 95; 5F
5) 11101; 35; 29; 1D
6) 10010110; 226; 150; 96
7) 101011001; 531; 345; 159
8) 11010110; 326; 214; D6