посчитайте записать в Паскаль

var

       x, f: Real;

begin

       Read (x);

       if x > 2 then

               f := 2 * x

       else

               f := -3 * x;

       Write (f)

end.