Turbo составить программу для вычисления значение функции: y={x^2,если х< 0 x-5,если х> 5 0, если 0≤х≤5

Var x,y:real;
 begin
write('x=');readln(x);
if x<5 then y:x*x
    else if x>5 then y:=x-5 else y:=0;
writeln('y=',y:6:3);
end.