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