program mn;
uses crt;
var a:array[1..100,1..100]of integer;
i,j,n,g,s,f,z,k:integer;
BEGIN
ClrScr;
Write('N:');
readln(n);
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(2);
Write(a[i,j]:4);
end;
writeln;
end;
writeln;
for i:=1 to n do
for j:=1 to n do
if (a[i,j]=a[i+1,j])and(a[i,j]=a[i,j+1])and(a[i,j]=a[i+1,j+1])
then f:=1;
if f=0
then writeln('pravilnii')
else writeln('nepravilnii');
readln;
END.