Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, меньших 500 и кратных 3. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество натуральных чисел, меньших 500 и кратных 3.

Program gt;
var a,h:longint;
begin
read(a);
h:=0;
while (a0) do
begin
if(aread(a);
end;
writeln(h);
end.