д = Дані("Привіт")

якщо д не є Дані
  впасти
кінець

якщо д.довжина != 6
  впасти
кінець

якщо д.чародія_перебір == недійсне
  впасти
кінець

п = д.чародія_перебір()

якщо п не є Дані.Перебір
  впасти
кінець

п.далі()
якщо п.значення != 'П'
  впасти
кінець
п.далі()
якщо п.значення != 'р'
  впасти
кінець
п.далі()
якщо п.значення != 'и'
  впасти
кінець
п.далі()
якщо п.значення != 'в'
  впасти
кінець
п.далі()
якщо п.значення != 'і'
  впасти
кінець
п.далі()
якщо п.значення != 'т'
  впасти
кінець