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.