Вычислить у(х), если у=х^2 при х> 1 и у=х при х< =1 паскаль

Function Y(x:real):real;
begin
  if x > 1 then Y := sqr(x)
  else Y := x;
end;

var x: real;
begin
  write('x = '); readln(x);
  writeln('y(', x, ') = ', Y(x));
  writeln;
  
  // Табуляция
  x := -1;
  repeat
    writeln('y(', x:4:1 , ') = ', Y(x):5:2);
    x := x + 0.5;
  until x > 2;
end.