Массивы в Паскале

[C@t]

Помогите,пожалуйста решить 2 задачки:
1)Дан массив А(30).Сформировать новый массив из сумм,трех рядом стоящих элементов массива А кратных 5.
2)Заполнить массив В следующим образом:
1 2 3 4 5 6 7 8 9 10
0 1 2 3 4 5 6 7 8 9
0 0 1 . . . . . . 8
. . . . . . . . . .
0 0 0 0 0 0 0 0 0 1

[ОДИНОЧЕСТВО В СЕТИ]

2)

var
  b:array[1..10,1..10] of integer;
  k:integer;
  i,j:integer;
begin
  k:=0;
  for i:=1 to 10 do begin
    for j:=1 to 10 do
      if ((j-k)>0) then b[i,j]:=j-k
      else b[i,j]:=0;
    inc(k);
  end;
  for i:=1 to 10 do begin
    for j:=1 to 10 do
      write(b[i,j]:3);
    Writeln;
  end;
  readln;
end.

А для 1) пример входных и выходных данных можно?

[C@t]

Спасибо!Работает)