Дано число. Определить оканчивается ли оно на 8.
//PascalABC.NET begin if(readinteger('Введите число:') mod 10 = 8) then write('Число оканчивается на 8') else write('Число не оканчивается на 8') end.