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

Question

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

---

Answer 1

Var y, x: real;beginread(x);if x < 4 then y:= 2*sqr(x)*x + 1/ x - 5;if x>= 4 then y:= 3*sqr(x) - 2;writeln(y);end.

Comments

var
y, x: real;

begin
read(x);
if x < 4 then y := 2 * sqr(x) * x + 1 / x - 5;
if x >= 4 then y := 3 * sqr(x) - 2;
writeln(y);
end.