двумерный массив(Pascal)

[Ekaterina92439]

Заполнить двумерный массив(4х4)числами равными сумме индексов элементов.Вывести на экран.Вывести числа кратные 3.
_______________
Вывести числа кратные 3.(это выводится),надо сделать еще чтобы до этого просто выводилось,как в задании.Помогите доделать

program zad2;
var
    A : Array [0..4,0..4] of integer;
    i, j : integer;
begin   
    for i:=0 to 4 do
    begin
        for j:=0 to 4 do
        begin
            A[i,j]:=i+j;
            if (A[i,j] mod 3) = 0 then Write(A[i,j]:2,' ');
        end;
    end;
end.

[Mad_Cat]

program zad2;
var
A : Array [0..4,0..4] of integer;
i, j : integer;
begin 
for i:=0 to 4 do
begin
for j:=0 to 4 do
begin
A[i,j]:=i+j;
Write(A[i,j]:2,' ');
end;
writeln;
end;
for i:=0 to 4 do
begin
for j:=0 to 4 do
begin
if (A[i,j] mod 3) = 0 then Write(A[i,j]:2,' ');
end;
end;
end.