создание блок схемы

[Galchonok]

Помогите создать блок схему пожалуйста для след. кодов:

№1

program lab14;
const n = 5;
var x: array [0..N] of real;
      i,count: integer; c,d,summa: real;
begin
writeln('n = ',n);
for i:=1 to n do
begin
write('x[',i,'] = ');
readln(x[i]);
if x[i] < 2 then x[i]:=0;
end;
for i:=1 to n do
begin
writeln('x[',i,']=',x[i]:2:5);
end;
write('c = '); readln(c);
write('d = '); readln(d);
summa:=0; count:=0;
for i:=1 to n do
begin
if (x[i]>c) and (x[i]<d) then
begin
summa:=summa+X[i];
count:=count+1;
end;
end;
writeln('summa = ',summa);
writeln('count = ',count);
readln;
end.

№2

program lab15;
const n=12;
var a: array [1..n,1..n] of real;
      i, j: integer;
begin
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100);
if (i = j) or (i < j) then
a[i,j]:=0;
writeln(a[i,j]:2:5);
end;
writeln;
end;
readln;
end.

№3

program lab16;
const
count = 8;
word: string = 'piramida';
var i: integer;
begin
writeln('word = ',word);
for i:=1 to count div 2 do
write(word[i]);
readln;
end.

[diamFC]

на картинке блок-схема к первой программе - остальные сможешь построить и сам с помощью моей программы.