Напишите программу, которая в последовательности целых чисел определяет количество чётных чисел, кратных 3. программа получает на вход целые числа. количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введённые числа по модулю не превышают 30 000. программа должна вывести одно число: количество чётных чисел, кратных 3.
var i,x,k:longint;
begin
k:=0;
for i:=1 to 1000 do
begin
read (x);
if x mod 6 = 0 then k:=k+1;
if x = 0 then
begin
break
end;
end;
write (k-1);
end.