Склавиатуры вводится n натуральных чисел, каждое не больше 1000. подсчитать сумму введённых чисел, каждое из которых делится нацело на 6 и оканчивается цифрой 8. перевести на язык программирования и решить

Pascal ABC

var

  n, sum, a, i:integer;

begin

    readln(n);

    for i:=1 to n do begin

        readln(a);

        if (a mod 6 = 0) and (a mod 10 = 8) then

        sum := sum + a;

    end;

    writeln(sum);

end.