Given an array of 40 integer elements, print the numbers of which are multiples of 5.

program zz1;
var mas: array [1..40] of integer;
i: integer;
begin
for i: = 1 to 40 do // enter 40 random numbers into an array from 0 to 20
mas [i]: = random (21);

for i: = 1 to 40 do // display the original array on the screen
write (mas [i], ”);
writeln; // go to a new line for output
for i: = 1 to 40 do
if i mod 5 = 0 then writeln (i, ‘- th element of the array -‘, mas [i]); // check if the array element number is divisible by 5, then display the answer

end.