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

Question

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

Answer 1

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