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