Вопрос Помогите, пожалуйста, написать программу в Pascal более грамотно и компактно

[alexpont]

var
n,k,d,s,v:integer;
begin
v:=0;
Read;
read(k);
read(d);
read(s);
If(n mod 6 = 0) then
v:=v+1
else
v:=v;
If(k mod 6 = 0) then
v:=v+1
else
v:=v;
If(d mod 6 = 0) then
v:=v+1
else
v:=v;
If(s mod 6 = 0) then
v:=v+1
else
v:=v;
Writeln(v);
end.
Программа должна выводить количество чисел, кратных шести.

 

[opsyaka]

Ввести массив было бы логичнее, вместо использования нескольких переменных.