Help! Нужно выстроить блок-схему:(function f(x:real): real;beginif x amp;lt; 0 thenf :=

Help! Необходимо выстроить блок-схему:(

function f(x:
real): real;

begin

if x lt; 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 lt; b
do begin

y := f(x);

writeln('':10,
'', x:5:1, ' ', y:7:4, '');

x := x + h

end;

writeln('':10,
'-----------------');

end.