Составить програмку на языке паскаль) вывести на экран те элементы массива

Program delenie;

var

A:array[1..n] of integer;

i: integer;

begin

for i:=1 to n do

if A[i]mod5=0 then

writeln(A[i]);

end.

Эта программа подразумевает, что массив вам дан изначально, если необходимо будет его составить через ввод чисел с клавиатуры после 5 строчки добавьте 2 последующие:

for i=1 to n do

readln(A[i]);