Буду : ) написать программу и правильно определить тип результата, вычисляющую значение у, если значение х вводится с клавиатуры. real y=(23-x²)²

Var
  x,y:real; {можно integer - по желанию}
begin
  Write('x='); Read(x);
  y:=sqr(23-x*x);
  Writeln('y=',y)
end.

Пример работы программы:
x=-3.18
y=166.09023376