var
i, k, n, c: Integer;
begin
Write ('Введите количество чисел: ');
ReadLn (k);
c := 0; // счетчик чисел, оканчивающихся на 8
for i := 1 to k do begin // цикл ввода для заданного количества чисел
Write ('Введите ', i , '-ое число: ');
Readln (n);
if n mod 10 = 8 then // если число оканчивается на 8
c := c + 1; // то увеличиваем счетчик
end;
Write ('Оканчиваются на 8: ', c, ' чисел.');
end.