составить блок-схему к программе

[Julia94]

Var xn,xk,x,dx,y,s:real;
    k:byte;
Begin
    write('Введите Xn and Xk (через пробел): ');readln(xn,xk);
    write('Введите dx: ');readln(dx);
    x:=xn;s:=0;k:=0;
    While x<=xk do
    Begin
      y:=-exp(cos(x)-1);
      if y>0 then s:=s+y;
      if y<0 then inc(k);
      x:=x+dx;
    End;
    writeln('Сумма положительных: ',s:0:2);
    writeln('Кол-во отрицательных: ',k);
    readln;
End.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

рекомедую воспользоваться готовым продуктом, который простой код на Паскале переводит в блок-схему (есть как онлайн решения, так и отдельные программы...)