Дано целое двухзначное положительное число 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.