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