Сделать блок схему
begin
read(a);
h:=0;
while (a<>0) do
begin
if(a<500)and(a mod 3=0)then h:=h+1;
read(a);
end;
writeln(h);
end.​

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку