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.