Лабы+курсовик(1) / Экзамен

program first;

uses crt;

var a: array [1..4,1..4] of integer;
i,j: integer;

begin
clrscr;
writeln('Vvedite matricu 4x4 postrochno:');
for i:=1 to 4 do
for j:=1 to 4 do
read(a[i,j]);

for i:=1 to 4 do
begin
writeln;
for j:=1 to 4 do
write(a[i,j]);
end;

writeln;
writeln;

for i:=1 to 3 do
begin

if a[i+1,1]<>a[1,i+1] then
writeln('Ne simmetrichna!') else

if a[4,i+1]<>a[i+1,4] then
writeln('Ne simmetrichna!!') else

if a[3,2]<>a[2,3] then
writeln('Ne simmetrichna!!!') else

writeln('Simmetrichna!!!!');
end;

readkey
end.