Дан целочисленный двумерный массив, размерности 7 х 6, заполненный случайными числами. Заменить все элементы на их квадраты и вывести на экран.

PROGRAM A22;
const
    max = 42;
var
    vt:array[1..max]of byte;
    i,n:byte;
    x:integer;

BEGIN
  n := max;
  writeln('Массив из n элементов будет задан случайными числами на интервале [0,3].');
  readln(n);  
  write('Введите число которое будет добавлено к каждому элементу.');
  readln(x);  

  writeln('Начальный Массив' );
  randomize;
  for i:=1 to n do begin
    vt[i]:=random(1,3);
    write(vt[i], ' ');
  end;
  writeln(' ');
 
  writeln('Массив c результатом' );
  for i:=1 to n do begin
    write(vt[i]+x, ' ');
  end;
  writeln(' ');
 
END.

В программе использованы команды эмулятора машины Поста К.Полякова:
> N переместить каретку вправо на 1 ячейку и перейти к строке с номером N
< N переместить каретку влево на 1 ячейку и перейти к строке с номером N
0 N записать в текущую ячейку «0» (стереть метку) и перейти к строке с номером N
1 N записать в текущую ячейку «1» (поставить метку) и перейти к строке с номером N
? N, M если текущая ячейка содержит «0» (не отмечена), то перейти к строке с номером N, иначе перейти к строке M
. остановить программу