Паскаль,нужна блоксхема

[hundert]

Вот сам пример уже зделанный тока блоксхему написать

Program xzxz

Uses crt;

Const b=-0,5;

Var z,x,y:real;

Begin;

Clrscr;

x:=1;

Repeat

y:=2;

While y<=5 do

Begin

z:=b*exp(-sqrt(x))*tg(x+1,7)/cos(x+1,7)+sqrt(y+b);

Writeln('x=',x:4:1;'y=',y:2:5;'z=',z:3:6);

y:=5;

y:=y+0,5;

End;

x:=x=0,2;

Until x>2;

End.

Помогите пожалуйста

[Тролль]

hundert:

Смотри этот пост.