Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, делящееся нацело на 7.
Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, делящееся нацело на 7.
Количество чисел не превышает 1000. Введенные числа не превышают 30 000.
Программа должна вывести одно число - минимальное число, делящееся нацело на 7.
Входные данные:
3
11
14
77
Выходные данные:
14
Программу надо на Паскале.

var n,a,i,min:integer;beginreadln(n);min:=30000;for i:=1 to n do begin readln(a); if (a mod 7=0)and(a<min) then min:=a; end;writeln(min);end.Пример:311147714