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

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]);