Люди, составить программу на языке паскаль следующие функции: 1) у= х^3+b^4-(r/3)-5 2)f=(x-1)+(b-3)-4

Var
    y, f, x, b, r: real;

begin
    readln(x, b, r);
    y := x * x * x + b * b * b * b - r / 3 - 5;
    writeln('y = ', y);
    f := x - 1 + b - 3 - 4;
    writeln('f = ', f);
end.