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

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

ПЕР
  ч, y: ЦЕЛ;

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

КОН Задание.