Дано двузначное число. Обусловьте, входят ли в него цифры 7 или

program zz1;

var a, b, p, s:integer; //задаем переменные целого типа

begin

write( введите двузначное число );  // вводим с клавиатуры двузначное число

read(a);  

b:= a mod 10; // обретаем вторую цифру двузначного числа

p:= a div 10; // обретаем  первую цифру двузначного числа

if (b = 7) or (b = 1) then s:=1; // проверяем первую цифру

if (p = 7) or (p = 1) then s:=1; // проверяем вторую цифру

if s = 1 then write( в двузначном заданном числе есть числа 7 либо 1 )

else write( в двузначном данном числе нету цифры 7 либо 1 );   // выводим ответ

end.