Вычислить у(х), если у=х^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.