Составьте программу которая удваивает число , если оно положительно и делит на 2 , если оно отрицательно.

Спасибо мне 3 поставили

Язык - pascalvar num: integer;beginreadln (num);if(num>0) then  writeln(num * 2)else  writeln(num / 2)end.