ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём ИЗ "...\Отделы\Обмен\";
ПЕР
число: ЦЕЛ;
УКАЗ
число := Приём.Число(); Вывод.Цепь("^");
ЕСЛИ
число ДЕЛИТЬ 1000 < число ДЕЛИТЬ 100 ОСТАТОК 10 И
число ДЕЛИТЬ 100 ОСТАТОК 10 < число ДЕЛИТЬ 10 ОСТАТОК 10 И
число ДЕЛИТЬ 10 ОСТАТОК 10 < число ОСТАТОК 10
ТО
Вывод.Цепь("труе")
ИНАЧЕ
Вывод.Цепь("фалсе")
КОН
КОН Задание.
Ответ,А )с заданными условиями продолжение работ