var a:array[1..8] of integer = (2,-5,3,8,-1,12,-3,9);
i,countera,counterb:integer;
begin
for i:=1 to length(a) do begin
if a[i]<0 then countera:=countera+1;
if a[i] mod 5 = 0 then counterb:=counterb+1;
end;
writeln('Количество чисел меньше 0: ', countera);
writeln('Количество чисел кратных 5: ', counterb);
end.
