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

Язык - pascal

var num: integer;
begin
readln (num);
if(num>0) then
  writeln(num * 2)
else
  writeln(num / 2)
end.