Question

Помогите прошу ❤️❤️❤️❤️❤️ Пассскальььь!!!!!!!!!!!!!!!!
Напиши программу, которая в последовательности натуральных чисел определяет минимальное число, оканчивающееся на 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 6.
Количество чисел не превышает 500. Введённые числа не превышают 10000. Программа должна вывести одно число — минимальное число, оканчивающееся на 6.

Входные данные
5
26
16
36

Выходные данные
16​​

Answer 1

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.