Составить программу.Если число положительное то увеличте его в 2 раза , если число отрицательное то уменьшите его в 2 раза

program task;var a:real;beginwrite('Введите число : ');read(a);if a>0 then writeln(a*2)else writeln(a/2);end.

А что делать с нулём? :D На паскале получится вроде что-то этого:Program: ...Var: a; integer;Beginreadln(a);beginIf a>0 thena:= a*2;else a:= a:2;end;writeln(a);End.