срочно, составить блок схему и программу вычисления для любого x

Program naconecto;vary,x:real;BEGINreadln(x);if x=2 then begin y:=(8*sqr(x)+5*x)/(2*sqrt(sqr(2)+5)); writeln(y); end;END.