Дано целое двузначное положительное число n. Составьте программу, которая определяет, входят ли в него цифры 2 и 5

Var a, a1, a2:integer;

begin

write ('a = ') ;

readln (a) ;

a1:=a div 10;

a2:=a mod 10;

if (a1=2) or (a2=2)

then writeln ('В числе есть цифра 2') ;

if (a1=5) or (a2=5)

then writeln ('В числе есть цифра 5') ;

if (a12) and (a22) and (a15) and (a25)

then writeln ('В числе нет цифр 2 и 5') ;

end.

Пример:

a = 25

В числе есть цифра 2

В числе есть цифра 5