Написать программку 1. в которой элементы двумерного массива равны сумме квадратов

1.program zz1;

const n = 4;  

     b = 7; // задаем количество частей в массиве

var  i, j, k:integer; // задаем переменные целого типа

m:array [1..n,1..b] of integer;

begin

for i:=1 to n do

 for j:=1 to b do // получаем числа и записываем их в массив

   m[i,j]:=i * i + j * j;

for i:=1 to n do  // выводим полученный массив на экран

    begin

for j:=1 to b do

   write(m[i,j]:4);

   writeln;

   end;

end.

2.program zz1;

const n = 40;  //задаем количество элементов в массиве

var  i, j:integer; // задаем переменные целого типа

m:array [1..n] of integer;

begin

for i:=1 to n do // записываем в массив числа случайным образом

m[i]:=random(201);

for i:=1 to n do  //выводим массив на экран

write(m[i], );

writeln;    // переходим на новейшую строчку для вывода ответа

j:=m[n];

for i:=n downto 2 do

m[i]:=m[i-1];

m[1]:=j;

for i:=1 to n do  //выводим массив на экран

write(m[i], );

end.