Выражение и условный оператор If (составить блок-схему) / Free Pascal

[Ksyusha]

Помогите,как составить блок-схему?

Program prog1;
Var
f,x: real;
Begin
writeln(Расчет значения функции в заданной точке);
write( Введите число x: );
readln(x);
if x<0 then f:=SQR(x+3) else
begin
if x<4 then f:=sin(x-2)/(SQR(x)-16)
else f:=SQRT(x-4);
end;
writeln( Значение f(,x:0:8,) = ,f:0:8);
readln;
end.

[Vanta11a]

http://paslab.ru/blok-shema.php

[Ksyusha]

Огромное спасибо!!!!!!!