ПАСКАЛЬ. Дан массив К(20) целых чисел данных с клавиатуры. Каких частей

var k: array [1..20] of integer;

i: integer;

k4,k5: integer;

begin

k4:=0;

k5:=0;

for i:=1 to 20 do begin

write('k[',i,'] = ');

readln(k[i]);

if (k[i] mod 4 = 0) and (k[i] lt;gt; 0) then inc(k4)

else if (k[i] mod 5 = 0) and (k[i] lt;gt; 0) then inc(k5);

end;

if k4gt;k5 then writeln('Частей, кратных 4 больше, чем кратных 5')

else if k5gt;k4 then writeln('Частей, кратных 5 больше, чем кратных 4')

else if k4=k5 then writeln('Элементов, кратных 4 однообразное количество, как и кратных 5');

end.