Паскаль.блок схема.

[antonioband]

Помогите составить блок схемы пожалуйста!
Program 1

uses crt;
const a=0.5;
      b=6.385;
      c=4.201;
var y,z1,z2,z3:real;
begin
clrscr;
z1:=sqr(ln(a+b+c)/ln(10));
z2:=sin(a*a);
z3:=sqrt(2+(14-b)/(2*c));
y:=sin((z1+z2)/z3)/cos((z1+z2)/z3);
write('y=',y:0:2);
readln
end.

Program 2

uses crt;
const a=9.5;
      b=-4.51;
      c=2.2093;
var z1,z2,z3,y:real;
begin
clrscr;
z1:=b*b-4*a*c;
z2:=sqr(sin(a));
z3:=sqr(sin(2*sqrt(a)/(b-c)));
y:=z1/(z2+z3);
write('y=',y:0:2);
readln
end.

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

[Serge_Bliznykov]

воспользуйтесь готовой программой/сервисом, которые по коду рисуют готовую блок-схему.
Например, FCEditor или DiamFC, или ТЫРК результаты поиска на гугле
кстати.
DiamFC

Программа построения блок-схем - платная, НО позволяет бесплатно построить блок-схему для программ, в которых меньше 30 строк. Вы можете удалить ненужные строки (объявления типов и переменных, все строки до и включая ключевое слово implementation), и тем самым сократить объем программы

[Вадим Мошев]

А вот ещё ресурс об упомянутом выше редакторе http://www.fceditor.com/