ребят помогите написать программу с помощью Паскаль

Program z1;
var a:integer;
Begin
read(a);
if (a mod 3=0) and (a mod 10=8) then
writeln('Число делится нацело на 3 и оканчивается на 8')
else
writeln('Выводит не будем')
End.