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

var a,a1,a2:integer;beginwrite('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 (a1<>2)and(a2<>2)and(a1<>5)and(a2<>5) then writeln('В числе нет цифр 2 и 5');end.Пример:a = 25В числе есть цифра 2 В числе есть цифра 5