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

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.

автор: Sklyarov Sergej a.k.a. S9