Напиши программу, которая в последовательности натуральных чисел определяет минимальное число, оканчивающееся на 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 6.
Количество чисел не превышает 500. Введённые числа не превышают 10000. Программа должна вывести одно число — минимальное число, оканчивающееся на 6.
Входные данные
5
26
16
36
Выходные данные
16
var n, i, k, j, d:integer;
begin
d= 9996;
write('Введите кол-во чисел: ');
readln(n);
for i:= 1 to n do begin
write('Введите число: ');
readln(j);
if j mod 10 = 6 then
if j < d then d:= j;
end;
writeln(d);
end.