ввести данный массив,вывести его на экран,выбрать и вывести на экран члены массива кратные 14

Ответы:

uses crt,

const n=10,

var a:array[1..n] of integer,

i:integer,

begin

for i:=1 to n do

read(a[i]),

for i:=1 to n do

write(a[i], ),

writeln,

for i:=1 to n do

if a[i] mod 14=0 then write(a[i], ),

end.