Розв’язок задачі з Абрамова №694д

Всі умови | Умова: Отримати квадратну матрицю порядку n ... (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №694)

program Pr694_4;
var
  a : array[1..100,1..100] of integer;
  i, j, n : byte;
begin
 readln(n);
 for i:=1 to n do
  for j:=1 to n do
   if (i=j) then a[i,j]:=2
   else a[i,j]:=0;

 for i:=1 to n do
  for j:=1 to n do
   if i=j-1 then a[i,j]:=1;

 for i:=1 to n do
  for j:=1 to n do
   if i=j+1 then a[i,j]:=1;

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