Пожалуйста посчитайте написать программы в free pascalочень нужноо

1.
const n=6;
var 
a:array[1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
   a[i,j]:=n*(n-i)+j;
   write(a[i,j]:4);
  end;
  writeln;
 end;
end.

Результат:
313233343536
252627282930
192021222324
131415161718
  7   8   9 10 11 12
  1   2  3  4  5  6

2.
const n=5;
var 
a:array[1..n,1..n] of integer;
i,j,s,k:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
   a[i,j]:=random(100)-50;
   write(a[i,j]:4);
  end;
  writeln;
 end;
s:=0; k:=0;
for i:=1 to n do
 for j:=1 to i-1 do
  if a[i,j]>0 then begin s:=s+a[i,j]; k:=k+1; end;
writeln('s = ',s,' k = ',k);
end.

Пример:
Исходный массив:
2929-639-2
 -840  922-8
-44 44539 -47
 26 -4823 -25 -16
 3913 -19 -29 -35
s = 105 k = 5