Дано целое двухзначное положительное число n. Составьте программу,которая определяет,входит ли в него цифра 4. (Скорее всего по Поскалю надо решать)

Program primer; Uses crt; var a: integer; begin clrscr;       write('Введите число a = ');       readln(a);       writeln;       if ((a mod 10) = 4) or  ((a div 10) = 4) then       writeln('Цифра 4 входит в число ')       else       writeln('Цифра 4 не входит в число ');       readln; end.