Создать матрицу nxn, каждый элемент которой равен 0, 1, 5 или 11

begin
write('n*n ',nmax,' n=');
readln(n);
for i:=1 to n do
begin
for j:=1 to n do
begin
x[i,j]:=random(4);
write(x[i,j]:3);
end;
writeln;
end;
writeln;
writeln;
k:=0;
 
for i:=1 to n do
begin
for j:=1 to n do
if (x[i,j+1]<>x[i+1,j]) and (x[i,j+1]<>x[i+1,j+1]) then
if (x[i+1,j]<>x[i+1,j+1]) and (x[i,j]<>x[i,j+1]) then
if (x[i,j]<>x[i+1,j]) and (x[i,j]<>x[i+1,j+1]) then
k:=k+1;
end;
 
writeln(' k=',k);
end.

Uses crt;
Const
 XArr = 5;
 YArr = 5;
Var
 Mass : array [1..XArr,1..YArr] of byte;
 i,j  : byte;
Begin
ClrScr;
TextColor(Yellow);
{}
Randomize;{}
For j := 1 to YArr do begin
 For i := 1 to XArr do begin
  Mass[i,j]:=Random(4);
  Case Mass[i,j] of
   0  : Mass[i,j]:=0;
   1  : Mass[i,j]:=1;
   2  : Mass[i,j]:=5;
   3  : Mass[i,j]:=11;
   Else writeLn('Error');
  End;
 end;
end;
WriteLn;
For j := 1 to YArr do begin
 For i := 1 to XArr do begin
  Write(Mass[i,j]:4);
 End;
 WriteLn;
End;
ReadKey;
ClrScr;
End.

Uses crt;
Const
 XArr = 5;
 YArr = 5;
Var
 Mass : array [1..XArr,1..YArr] of byte;
 i,j  : byte;
 Res  : integer;
Begin
ClrScr;
TextColor(Yellow);
{}
Randomize;{}
For j := 1 to YArr do begin
 For i := 1 to XArr do begin
  Mass[i,j]:=Random(4);
  Case Mass[i,j] of
   0  : Mass[i,j]:=0;
   1  : Mass[i,j]:=1;
   2  : Mass[i,j]:=5;
   3  : Mass[i,j]:=11;
   Else writeLn('Error');
  End;
 end;
end;
WriteLn;
For j := 1 to YArr do begin
 For i := 1 to XArr do begin
  Write(Mass[i,j]:4);
 End;
 WriteLn;
End;
 
{-----------------}
Res:=0;
For j:= 1 to Yarr-1 do begin
 For i:= 1 to Xarr-1 do begin
  If ((Mass[i,j]<>Mass[i+1,j]) and (Mass[i,j] <> Mass[i,j+1]) and (Mass[i,j] <> Mass[i+1,j+1])) then
   if ((Mass[i+1,j]<>Mass[i,j+1]) and (Mass[i+1,j]<>Mass[i+1,j+1]) and (Mass[i,j+1]<>Mass[i+1,j+1])) then inc(Res);
 End
End;
WriteLn;
Write('Количество четверок с разными элементами: ',Res);
{-----------------}
 
ReadKey;
ClrScr;
End.