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

Например: Если массив а[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.