Ввести данный массив, вывести его на экран…

Uses crt; const n=10; var a: array[1… n] of integer; i: integer; beginfor i: =1 to n doread (a[i]); for i: =1 to n dowrite (a[i],'); writeln; for i: =1 to n doif a[i] mod 14=0 then write (a[i],'); end.