{* Формирование матрицы *}

Unit FORMIR;
Interface
Implementation
Begin
 writeln('Формирование матрицы типа

1000
0100
0010
0001 ');
End.

Program formir;

Uses formir.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  a : Array[1..50, 1..50] Of integer;
  i : integer;
  j : integer;
  m : integer;
  n : integer;
  Begin
  Write(‘сколько строк?’);
  Readln(m);
  Write(‘сколько столбцов?’);
  Readln(n);
For i := 1 To m Do {* Цикл для i => [1 .. m] *}
  Begin
For j := 1 To n Do {* Цикл для j => [1 .. n] *}
  Begin
If i = j Then
  a[i, j] := 1
Else a[i, j] := 0;
  write(a[i, j]);
End;
writeln; {* Пустая строка *}
End......