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

Question

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

Answer 1

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.