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

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.