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.