Question

Помогите пожалуйста! Составить программу на Паскале. 8 класс. Функции. Даю 30 баллов!

Answer 1

function f(x:real):real;
begin
  if x>0 then f:=x*x-1
  else
    if x=0 then f:=-5
    else f:=x*x*x+4*x-2
end;

var
  x:real;
 
begin
  Read(x);
  Writeln('y=',f(x))
end.

Пример
3.18
y=9.1124