Дан двумерный массив случайных чисел. Построить одномерный из исходного, выбрав из него все числа кратные

[ProWinD]

Вот такая вот задачка:

Дан двумерный массив случайных чисел. Построить одномерный из исходного, выбрав из него все числа кратные 3.

Заранее спасибо

[puporev]

Задача примитивная, думаю разберешся.

uses crt;
var a:array[1..20,1..20] of integer;
    b:array[1..100] of integer;
    n,m,i,j,k:integer;
begin
clrscr;
write('Kolichestvo strok n=');readln(n);
write('Kolichestvo stolbcov m=');readln(m);
randomize;
k:=0;
writeln('Matrica:');
for i:=1 to n do
  begin
    for j:=1 to m do
      begin
        a[i,j]:=random(30);
        if a[i,j] mod 3=0 then
          begin
            k:=k+1;
            b[k]:=a[i,j];
          end;
        write(a[i,j]:4);
      end;
    writeln;
  end;
writeln;
writeln('Massiv:');
for i:=1 to k do
write(b[i],' ');
readln
end.

[ProWinD]

Спасибо огромное !!! Респект