program FunctionCalculator;
uses Math;
var x, y1, y2, y3: real;
beginwrite('Enter the value of x: ');readln(x);
y1 := sin(power(x, 2) + 1);y2 := sqrt(power(x, 3) + 2*x);y3 := (x + 8) / (power(x, 3) - 4);
writeln('Result of y1 = ', y1:0:2);writeln('Result of y2 = ', y2:0:2);writeln('Result of y3 = ', y3:0:2);end.
program FunctionCalculator;
uses Math;
var x, y1, y2, y3: real;
begin
write('Enter the value of x: ');
readln(x);
y1 := sin(power(x, 2) + 1);
y2 := sqrt(power(x, 3) + 2*x);
y3 := (x + 8) / (power(x, 3) - 4);
writeln('Result of y1 = ', y1:0:2);
writeln('Result of y2 = ', y2:0:2);
writeln('Result of y3 = ', y3:0:2);
end.