Pascal составить программу с полным ветвлением y=x*x если x< 2 y=x*x*x если x> 2 y=2+x если x=2

Program dfgd;

var
  x: integer;
  y: real;

begin
  write('Введите х: ');
  readln(x);
  if x < 2
    then y := sqr(x)
  else
  if x > 2
    then y := power(x, 3)
  else y := 2 + x;
  writeln('y=', y);
end.