Создать массив, вводя значения с клавиатуры. Вывести на экран элементы кратные шести.

Например: Если массив а[5]:-12,7,18,23,-11, то должны получить : -12,18.

Uses crt;

const N=5

var a:array[1 ... N] of integer;

b: array[1 ... N] of integer;

i: integer;

begin

for i:=1 to n do begin

write ('a[', i, ']=');

read (a[i]);

end;

writeln ('Ishodniy massiv a');

for i:=1 to n do

write (a[i],' ');

for i:=1 to n do

if a[i] mod 3=0 then write (a[i], ' ');

end.