Дано целое двузначное число. составить программу которая определяет входит ли в него цифра 4

На псевдокоде
Алг(a,b,fl)
Арг a,b
Рез fl
ввод(a;b) {где а-это десятки,b-еденицы}
fl:=true
Если (a=4)или(b=4) то fl:=true все
Если fl=true то вывод('есть') иначе вывод('нету')
конец

var

  a:byte;

begin

  write('Введите число '); readln(a);

  if (a div 10 = 4) or (a mod 10 = 4) then

    writeln('В число входит цифра 4')

  else

    writeln('цифра 4 в число не входит');

end.