Дана квадратная матрица А порядка n. Проверить, является ли матрица единичной.

var
  a: array[1..100,1..100] of integer;
  i,j,n: integer;
  f: boolean;
Begin
  ...
  f:=true;
  for i:=1 to n do
  for j:=1 to n do
    if a[i,j]<>1 then f:=false;
  writeln(f);
  readln
End.

if i=j then
  begin
    if a[i,j]<>1 then f:=false;
  end
  else if a[i,j]<>0 then f:=false;

Uses
 CRT;
Const
 m:array[1..4,1..4] of byte=((1,0,0,0),
                     (0,1,0,0),
                     (0,0,1,0),
                     (0,0,0,1));
 Var
  i,j:integer;
  f:boolean;
 begin
 f:=true;
 for i:=1 to 4 do
  begin
   for j:=1 to 4 do
    begin
     write(m[i,j]);
     if (m[i,i]<>1) or ((i<>j) and (m[i,j]<>0)) then f:=false    
    end;
   writeln
  end;
 writeln;
 if f then write('Äà')
 else write('Íåò');
 end.

if (m[i,i]<>1) or ((i<>j) and (m[i,j]<>0)) then f:=false

Uses
 CRT;
 Var
  i,j,n:integer;
  f:boolean;
  m:array[1..50,1..50] of integer;
 begin
 repeat
  readln(n);
until n in [1..50];
 f:=true;
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     write('m[',i,',',j,']:=');
     readln(m[i,j]);
     if ((i=j) and (m[i,j]<>1)) or ((i<>j) and (m[i,j]<>0)) then f:=false
    end;
   writeln
  end;
 writeln;
 if f then write('Äà')
 else write('Íåò');
 readln
 end.