Напишите программу для решения задачи :задано трехзначное положительное число. есть ли среди цифр числа цифра 7? если есть, на каком месте стоит? паскаль

Предыдущий
вопрос Следующий
вопрос

program FindDigitInNumber;

var
number, digit, position: integer;

begin
write('Введите трехзначное число: ');
readln(number);

position := 0;

// Ищем цифру 7 с помощью деления числа на цифры
repeat
position := position + 1;
digit := number mod 10;

until number = 0;

if position = 0 then
writeln('Цифра 7 отсутствует в числе.');

end.