Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6 и оканчивающихся на 8. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6 и оканчивающееся на 8.

Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000.

Программа должна вывести одно число: сумму чисел, кратных 6 и оканчивающихся на 8.

var    i, n, s, x: integer;begin    readln(n);          s := 0;    for i := 1 to n do      begin        readln(x);           if (x mod 10 = 8) and (x mod 6 = 0) then                 s := s + x;         end;          writeln('S = ', s);end.