дан массив из 6 элементов, введённых с клавиатуры. Вывести номера элементов, оканчивающихся на 5

var

i :integer;

a : array [1. . 6] of integer;

begin

for i:=1 to 6 do

readln(a[i]);

for i:= 1 to 6 do

if a[i] mod 10 = 5 then

write(a[i], ' ');

end.