Vara,b:integer;beginb:=30001;read(a);while a<>0 dobeginif (a mod 3 = 0) and (aend.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.