Помогите нарисовать блок схему ио к такой задаче

[gigaman]

Program ZAD2;
const h=0.15;
var sum,x:real;
i:integer;
begin
x:=0;
sum:=0;
while (x<=4.0) do
begin
if(x>=pi)then
begin
for i:=1 to 5 do sum:=sum+sin(x)/i;
sum:=sum+cos(x);
end;
if(x<pi) then sum:=cos(x)*cos(x)+sin(x)*sin(x);
writeln ('x=',x:5:2,' sum=', sum);
x:=x+h;
end;
readln;
end.

Ато я запутался

[puporev]

В условии и коде все нормально? А то как-то некрасиво смотрится
sum:=cos(x)*cos(x)+sin(x)*sin(x); может проще sum:=1;
Вообще приведите полностью задание, будет проще схему нарисовать.

Если этот код вас устраивает, то блок-схема к нему во вложении.

[gigaman]

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