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

var a,b,n:integer; begin writeln('n='); readln(n); a:=n mod 10;  b:=n div 10; if (a= 4) or (b=4) or (a=7) or (b=7) then writeln('yes') else  writeln('no'); readln; end. __________________________ var a,b,n:integer; begin writeln('n='); readln(n); a:=n mod 10;  b:=n div 10; if (a= 3) or (b=3) or (a=6) or (b=6) or (a=9) or (b=9)  then writeln('yes') else  writeln('no'); readln; end.