задача на паскале

[noone]

дано двухзначное число. определить:
а)входит ли в него цифра а
б)входят ли в него цифры 3,6,9.

[Mad_Cat]

Var X:byte;
a:byte;
begin
readln(x,a);
writeln((x mod 10=a) or (x div a=0))
writeln((x mod 10=3) or (x div a=3) or (x mod 10=6) or (x div a=6) or (x mod 10=9) or (x div a=9));
end.