Напишите программу, которая в последовательности целых чисел определяет количество четных чисел, кратных 3. программа получает на вход целые числа. количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0-признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введенные числа по модулю не превышают 30000. программа должна вывести одно число: количество четных чисел, кратных 3.
var i, k, count: integer;
A: array[1..N] of integer;
begin
writeln ('vvedite chisla');
for i:=1 to N do begin
k:=k+1;
readln(A[k]);
if A[k]=0 then
break
end;
for i:=1 to K-1 do
if A[k] mod 3 =0 then
count:=count+1;
writeln('кол-во чисел, кратных трем: ', count);
end.