Составить программу на языке паскаль.Вычислить значение у. Если у=cистема: x²-3, x<3 |x|-5, x>3

Предыдущий
вопрос Следующий
вопрос

program ValueY;

var
x, y: real;

begin
write('Enter the value of x: ');
readln(x);

if x < 3 then
y := x * x - 3
else if x > 3 then
y := abs(x) - 5
else
y := 0;

writeln('The value of y is: ', y);
end.