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

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