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

Var: x, y: integer;
begin
readln (x);
If x<-2 then
y:=2*x;
If x>2 then
y:=-3*x;
writeln (y);
end.