Среди чисел 1 до N найдите и выведите на экран такие,запись которых совпадают с последними цифрами их квадрата (например 6 в квадрате=36).N введите с клавиатуры.Буду очень благодарен за решение и за подробное объяснение. — Правильный ответ на вопрос найдете ниже

Ответ: ОТДЕЛ Задание+;ИСПОЛЬЗУЕТ Вывод ИЗ «…\Отделы\Обмен\», Приём;ПЕР  N, сч, ч, кв: ЦЕЛ;УКАЗ  N := Приём.Число();  ОТ сч := 0 ДО N ВЫП    кв := сч * сч;    ч := сч;    КОЛЬЦО      ПОКА ч > 0 И кв > 0 ВЫП        ЕСЛИ ч ОСТАТОК 10 # кв ОСТАТОК 10 ТО          ВЫХОД        КОН;        ч := ч ДЕЛИТЬ 10;        кв := кв ДЕЛИТЬ 10      КОН;      Вывод.ЧЦел(«^%d», сч, 0, 0, 0)    КОН  КОНКОН Задание.