Программа на Pascal, которая определяет, есть ли хотя бы одно число в последовательности, оканчивающееся на 8:

program CheckNumber;
var
num: integer;
begin
repeat
write${}^{\prime }Введитечисло{:}^{\prime }$;
readln$num$;
if num mod 10 = 8 then
begin
writeln${}^{\prime }Числ{о}^{\prime },num{,}^{\prime }оканчиваетсяна8^{\prime }$;
halt;
end;
until num = 0;
writeln${}^{\prime }Впоследовательностинетчисел,оканчивающихсяна8^{\prime }$;
end.

Эта программа считывает числа до тех пор, пока не введен 0, и проверяет каждое число на то, оканчивается ли оно на 8. Если такое число найдено, программа выводит сообщение о том, что число оканчивается на 8 и завершает выполнение. Если в последовательности не было найдено чисел, оканчивающихся на 8, программа выводит соответствующее сообщение.