Question

Программа на паскале.ввести число,если оно больше 0 разделить его на 2,если меньше или равно то умножить на 5

Answer 1

Var x:real;
begin
read(x);
if x>0 then x:=x/2 else
x:=x*5;
write(x);
end.