Дано 4-значное число abcd. Вычислить число y=badc

ОТДЕЛ Задание+; ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём; ПЕР   ч, y: ЦЕЛ; УКАЗ   ч := Приём.Число();   y := (ч ДЕЛИТЬ 100 ОСТАТОК 10) * 1000 +          (ч ДЕЛИТЬ 1000) * 100 +          (ч ОСТАТОК 10) * 10 +          (ч ДЕЛИТЬ 10 ОСТАТОК 10);   Вывод.ЧЦел("^%d", y, 0, 0, 0) КОН Задание.