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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.