Question

Помогите пожалуйста!
В PascalABC составить программу вычисления значения функции:

Answer 1

var x, y: real;

begin

 writeln('x=');

 readln(x);

 if (x>0) and (x<10) then y:=5*x*x

 else y:=(2*(x+5))/3;

 write(y);

end.