Сформируйте квадратную матрицу порядка n по заданному образцу. Протестируйте программу для массива, состоящего из 10*10 элементов.

Линейка нужна для изменения расстояния (между точками) с незначительной погрешностью.
Транспортир нужен для измерения градусной меры угла с незначительной погрешностью.
Термометр нужен для измерения температуры.
Барометр нужен для измерения атмосферного давления.
Компас нужен для ориентирования по магнитным полюсам Земли.
Телескоп нужен для того, чтобы увидеть отдалённые объекты.
Микроскоп нужен для того, чтобы увидеть незримые невооружённым глазом тела.
Абак нужен для упрощения счёта.
Детектор Гейгера нужен для измерения радиационного фона.
=)

Вот, сначала ввести числа Анны и Бориса, а потом  кол-во бросков =)

var x, a, b, k, i, wa, wb: integer;
begin
     readln(a, b);
     readln(k);
     for i := 1 to k do
     begin
          x := random(5) + 1;
          writeln(x);
          if ((abs(a - x) > abs(b - x))) then wa := wa + 1;
          if ((abs(a - x) < abs(b - x))) then wb := wb + 1;
     end;
     if (wa > wb) then writeln('Ann win!')
        else
            if (wb > wa) then writeln('Boris win!')
               else
                   writeln('No win;)');
     writeln(wa, ' - ', wb);
end.