В одномерном массиве из 10 чисел посчитать количество всех элементов, кратных 7 и сумму остальных элементов

Const

n=10;

Var a: array[1 ... 10] of integer;

i: integer;

s, k: real;

Begin

k:=0;

s:=0;

For i:=1 to n do

begin

write ('Числа = ') ; readln (a[i]) ;

if a[i] mod 7 = 0 then s:=s+1 else k:=a[i]+k;

end;

writeln ('Кол-во элементов кратных 7 = ', s) ;

writeln ('Сумма остальных = ', k) ;

End.