помогите решить, Алгоритмические структуры разветвления Опции

[Till]

Вот эта задач: "Каждое из чисел A, B отлично от нуля. Если они одинаковых знаков, то заменить меньшее из них большим, если же числа имеют разные знаки, то присвоить каждому из них знак числа, меньшего по абсолютной величине."

[renesko1]

В чем проблема ?
сначало запрашиваешь a и b ;
потом подставляешь в мою запись вместо ... то, что надо сделать, если знаки одного знака.
else ветка если не одного знака вней действия тоже по условию.
Потом пишешь writeln(a,b) ;