Составить программу для вычисления значения функции:

[Sonya_Mayorova]

Помогите пожалуйста

[Sonya_Mayorova]

Сообщение от Sonya_Mayorova

Помогите пожалуйста

Это на паскале)

[Serge_Bliznykov]

function y(x:real):real;
begin
  if x<=1 then y:=sqr(sqr(x))-1
  else
    if x<1.3 then y:=sqrt(2.5*x)+1
    else y:=sqr(sin(x))
end;