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

Var
a,b:integer;
begin
b:=30001;
read(a);
while a<>0 do
begin
if (a mod 3 = 0) and (a<b) then b:=a;
read(a);
end;
write(b);
end.