Вводится 5 всех чисел. Подсчитать сумму и количество чисел, кратных 6.

Var a,s,i,k: integer;
begin
for i:=1 to 5 do
begin
write ('Введите число: ');
readln (a);
if a mod 6 = 0 then
begin
s:=s+a;
k:=k+1
end
end;
writeln ('Cумма чисел, кратных 6, равна: ',s);
writeln ('Количество чисел, кратных 6, одинаково: ',k);
if (slt;gt;0) and (s mod 4 = 0) then writeln ('Cумма чисел, кратных 6, делится на 4 нацело');
if (slt;gt;0) and (s mod 4 lt;gt; 0) then writeln ('Cумма чисел, кратных 6, не делится на 4 нацело')
end.