Question

Помогите записать в Паскаль

Answer 1

var

       x, f: Real;

       

begin

       Read (x);

       

       if x > 2 then

               f := 2 * x

       else

               f := -3 * x;

       

       Write (f)

end.