Напишите программу, которая в последовательности натуральных чисел находит наименьшее число, кратное 3.

Vara,b:integer;beginb:=30001;read(a);while a<>0 dobeginif (a mod 3 = 0) and (a<b) then b:=a;read(a);end;write(b);end.