Дан массив из 40 целых элементов вывести на печать номера которых кратны 5

program zz1;

var mas:array[1 ... 40] of integer;

i:integer;

begin

for i:=1 to 40 do / /вводим 40 случайных чисел в массив от 0 до 20

mas[i]:=random (21);

for i:=1 to 40 do / /выводим исходный массив на экран

write (mas[i],' ');

writeln; / /переходим на новую строку для вывода

for i:=1 to 40 do

if i mod 5=0 then writeln (i,'-ый элемент массива - ', mas[i]); / /проверяем, если номер элемента массива делится на 5, то выводим ответ

end.