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

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

ПЕР
  ч, y: ЦЕЛ;

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

КОН Задание.