Для данного целого Х найти значение следующей функции 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.