Впрограмму вводятся 2 значения: любое семизначное число и любая цифра. если цифра есть в данном числе программа должна написать "да", если такой цифры нет программа должна написать "нет"

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём ИЗ "...\Отделы\Обмен\";

ПЕР
  число, цифра: ЦЕЛ;

УКАЗ
  число := Приём.Число(); Вывод.Цепь("^");
  цифра := Приём.Число(); Вывод.Цепь("^");
  КОЛЬЦО
    ПОКА число > 0 ВЫП
      ЕСЛИ число ОСТАТОК 10 = цифра ТО
        Вывод.Цепь("ДА");
        ВЫХОД
      КОН
    КОН;
    Вывод.Цепь("НЕТ");
    ВЫХОД
  КОН

КОН Задание.