Для данного целого х найти значение следующей функции f, принимающей значение целого типа: f(x)= 2*х, если х< -2 или х> 2, -3*х в противном случае

Program If25;
Var x,y:Real;
Begin
ReadLn(x);
If (x > 2) Or (x < -2)
Then y := 2*x
Else y := -3*x;
WriteLn('f(x) = ',y);
End.