Даны два массива состоящих каждый из 8 ценах чисел, в каком массиве больше элементов кратных 5

Pascal

Var a, b : array [1 ... 8] of longint;

k1, k2, i: longint;

Begin

For i:=1 to 8 do

Read (a[i]) ;

For i:=1 to 8 do

Read (b[i]) ;

For i: = 1 to 8 do

Begin

If a[i] mod 5=0 then k1:=k1+1;

If b[i] mod 5=0 then k2:=k2+1;

End;

If k1k2 then writeln ('v 1 mssive bolhe') else writeln ('ravno') ;

End.