Доброго времени суток!!!Помогите пожалуйста с задачей в Turbo Pascal. Даны два целых числа.Если они оба положительны,то большее из них заменить их средним арифметическим.Если оба отрицательны,то поменять знак у
меньшего из них.Иначе каждое из них удвоить.