Напишите программу, которая в последовательности натуральных чисел определяет минимальное положительное число, кратное 5.
Программа получает на вход количество чисел в последовательности, а затем сами
числа. В последовательности всегда имеется положительно число, делящееся нацело на 5.
Количество чисел не превышает 100. Введенные числа по абсолютной величине
не превышают 30 000.
Программа должна вывести одно число - минимальное положительно число, кратное 5.
Входные данные:
4
-5
10
6
25
Выходные данные:
10
Программу надо на Паскале.

var a:array[1..100] of integer;k,i,Min:integer;beginMin:=30001;write('Введите кол-во чисел ');Read(k);For k:= 1 to k dobeginwrite('Введите число ');Read(i);if (i mod 5 = 0)and(i < Min)and(i>0) thenMin:=i;end;Write('Ответ -> ',Min);end.