Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, кратное 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 1000. Введённые числа не превыша ют 30 000. Программа должна вывести одно число — минимальное число, кратное 3.

vichelnenieVK ;var o,a,i,b,c:integer;beginb:=30001;c:=0;read(a);for i:=1 to a do beginread(o);if (o<b) and (o mod 3 = 0 )and (o<30001) thenb:=o;c:=c+1;if c=1000 then breakend;writeln( b);end.

program vichelnenie;var o,a,i,b,cinteger;beginb=30001;c=0;read(a);for i=1 to a do beginread(o);if (ob) and (o mod 3 = 0 )and (o30001) thenb=o;c=c+1;if c=1000 thenbreakend;writeln( b);end.

Я не уверен что пройдет все тесты,но лови.program vichelnenieVK ;var o,a,i,b,c:integer;beginb:=30001;c:=0;read(a);for i:=1 to a do beginread(o);if (o<b) and (o mod 3 = 0 )and (o<30001) thenb:=o;c:=c+1;if c=1000 then breakend;writeln( b);end.