Программа на паскале.ввести число,если оно больше 0 разделить его на 2,если меньше или равно то умножить на 5
Var x:real; begin read(x); if x>0 then x:=x/2 else x:=x*5; write(x); end.