Create a program that displays every 5th number and there are 20 such numbers.

First program:

var i: integer;
A: array [1..20] of integer;
begin
randomize;
writeln (‘Random array:’);
for i: = 1 to 20 do A [i]: = random (21) -10;
for i: = 1 to 20 do write (A [i]: 5);
writeln;
writeln (‘Displaying every fifth item on the screen:’);
for i: = 1 to 20 do if i mod 5 = 0 then write (A [i]: 5);
end.