Help! Нужно построить блок-схему:(function f(x: real): real; begin if x меньше 0 then f := exp(x * ln(3)) + sqr(x) else f := exp(-x * ln(3)) - sqr(-x) end;   var a, b, h, x, y: real;   begin a := -1; b := 2; h := 0.2; writeln...

Help! Нужно построить блок-схему:( function f(x: real): real; begin if x < 0 then f := exp(x * ln(3)) + sqr(x) else f := exp(-x * ln(3)) - sqr(-x) end;   var a, b, h, x, y: real;   begin a := -1; b := 2; h := 0.2; writeln('':10, '_________________'); writeln('':10, '|  x   |    y   |'); writeln('':10, '-----------------'); x := a; while x < b do begin y := f(x); writeln('':10, '|', x:5:1, ' | ', y:7:4, '|'); x := x + h end; writeln('':10, '-----------------'); end.