Дано двузначное число. Определите, входят ли в него цифры 7 или 1. (c помощью функций div и mod сначала выделить цифры числа, а потом сравнить каждую из них данными 7 и 1, чтобы составить сложное условие из нескольких простых используют логическую функцию OR, а каждое простое условие заключается в скобки) В pascal

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.