[РЕШЕНО] Составление блок-схем

[AliveHeaven]

Здравствуйте. Очень нужна помощь. Мне задали составить три программы и к ним блок-схемы. Проблема в том что программы я составил, а вот с блок-схемами проблема. Не получается составить. Помогите их составить, пожалуйста. Вот программы:
1.

program p1:
Var
 St_c, n_c, f, g: real;      
a,b,c: integer;                  
Begin
 write('старая цена'); readln(St_c);
write('процент повышения 1'); readln(a);
write('процент повышения 2'); readln(b);
write('процент повышения 3'); readln(c);
 f:= St_c + a/100 * St_c;
g: = f + b/100*f;
n_c:= g+c/100*g;
 wriat('новая цена', n_c); readln;
End. 

2. 
Program p2:
Var
x1, y1, z1, x2, y2, z2, S1, S2; real;
Begin
 write ('x1=') ; readln (x1);
 write ('y1=') ; readln (y1);
 write ('z1=') ; readln (z1);
 write ('x2=') ; readln (x2);
 write ('y2=') ; readln (y2);
 write ('z2=') ; readln (z2);
S1:= sqrt(sqr(x1)+sqr(y1)+sqr(z1));
S2:= sqrt(sqr(x2)+sqr(y2)+sqr(z2));
if S1>S2
  then write (' точка А дальше точки В')
  else write (' точка В дальше точки А');
readln;
End.


3. 
Program p3:
Var 
 x,y,f; real;
Begin
write ('x='); readln(x);
write ('y='); readln(y);
   if sqr(x) > abs( 4*x*y) +1
     then f:= ln(abs(x+y))
else
   if sqr(x)<abs(4*x*y)+1
   then f:= sin(1/(x*y) / cos(1/(x*y))
   else f:= exp(x*y+ sqrt(sin (x));
   writeln ('f=', f);
readln;
End.

Пожалуйста, оформляйте Ваш код согласно правилам.

Заранее спасибо.

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

Попробуйте воспользоваться программой FCeditor.
www.fceditor.com

[BDA]

N1

Вадим Мошев, опередили

[AliveHeaven]

О, спасибо вам обоим большое, надеюсь скоро разберусь в системе составление)