petyaGavrikov

Verified answer

Алг Число
нач
  цел n, n1, k, f
  вывод "Введите целое число", нс
  ввод n
  n1:= div(n,10)
  k:= mod(n,10)
  f:= 1
  нц пока n1<>0
    если mod(n1,10) > k то
       f:= 0
    все
    k:= mod(n1,10)
    n1:= div(n1,10)
  кц
  если f=1 то
    вывод "Да."
   иначе
    вывод "Нет."
кон

PS. Кумира нет, поэтому проверяйте сами.