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

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