Смета для создания локальной сети сделайте )

Const
  nn = 20;

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

begin
  writeln('Задайте размер матрицы n');
  readln(n);
  if n > nn then
    writeln('Вы превысили допустимый размер матрицы 20')
  else begin
    writeln('Матрица-результат');
    for i := 1 to n do
    begin
      writeln;
      for j := 1 to n do begin
        if i < j then a[i, j] := 1
        else if i = j then a[i, j] := 2
        else a[i, j] := 3;
        write(a[i, j]:2)
      end;
    end;
    writeln
  end
end.

Тестовый пример:

Задайте размер матрицы n
10
Матрица-результат

 2 1 1 1 1 1 1 1 1 1
 3 2 1 1 1 1 1 1 1 1
 3 3 2 1 1 1 1 1 1 1
 3 3 3 2 1 1 1 1 1 1
 3 3 3 3 2 1 1 1 1 1
 3 3 3 3 3 2 1 1 1 1
 3 3 3 3 3 3 2 1 1 1
 3 3 3 3 3 3 3 2 1 1
 3 3 3 3 3 3 3 3 2 1
 3 3 3 3 3 3 3 3 3 2

Вот.Удачи
1) Имя - Робот
  2) Круг решаемых задач - Робот занимает ровно одну клетку поля. Он может переместиться на соседнюю клетку в любом направлении, закрасить клетку, проверить, свободен ли путь к  соседней клетке, выдать сообщение об ошибке, если команда неправильна.
  3) Среда - Робот действует на прямоугольном клетчатом поле. Между некоторыми клетками поля могут быть расположены стены. Некоторые клетки могут быть закрашены
  4) СКИ - включает в себя:5 команд действий (влево, вправо, вверх, вниз, закрасить)8 команд проверки условий (слева/справа/сверху/снизу свободно/закрашено)цикл N разцикл ПокаМожно также определять процедуры - заранее заданные наборы команд (подпрограммы), которые можно вызывать по имени  5) Система отказов - Если Робот не может выполнить команду, он выдаёт сообщение ОТКАЗ (например, ему мешает стена) Другая причина отказа - ошибка в написании команды
  6) Режимы работы - Робот работает в режиме програмного управления