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

Спасибо,подредактировал,всё заработало=))

Если надо составить программу, то вот, держи.program apple;var a,b:integer;begin readLn(a,b); if a>0 && b>0 then begin if a>b a:=(a+b)/2; else b:=(a+b)/2; end else a<0 && b<0 begin if(a<b)a:=a*-1; else b:=b*-1; end else begin a:=a*2; b:=b*2; endend.Могут быть небольшие оплошности т.к. не работаю с паскалем, но знаю некоторые основы.