Verified answer

нач

 целтаб a[1:20]

 цел i, j, k

 нц для i от 1 до 20

   ввод a[i]

 кц

 k:=0

 нц для i от 2 до 20

   если mod(a[i-1],5)=0 или mod(a[i],5)=0 то

     k:=k+1

   все

 кц

 вывод "k = ",k

кон