Блок-схема

[olesia @@@]

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

Program pr2; 
uses crt;
type prodaza=record
gor:string[20];
kol:integer;
kvm:longint;
sum:longint;
srd:real;
end;
var a:array[1..20] of prodaza;
n,i:byte;	
begin
clrscr;
repeat
write('Кол. населенных пунктов до 20 n=');
readln(n);
until n in [1..20];
writeln('Введите сведения о продажах квартир:');
for i:=1 to n do
begin
writeln('Город ',i);
with a[i] do
begin
write(' Название: ');readln(gor);
write(' Продано квартир: ');readln(kol);
write(' Квадратных метров: ');readln(kvm);
write(' Сумма от продаж: ');readln(sum);
srd:=sum/kol;
end;
end;
clrscr;
writeln('Сведения о продаже квартир за полугодие:');
writeln('----------------------------------------------------');
writeln('| Город |Кол.квартир|Кол.кв.метров | Сумма |');
writeln('----------------------------------------------------');
for i:=1 to n do
with a[i] do
begin
gotoXY(1,whereY);write('| ',gor);
gotoXY(13,whereY);write('|',kol:7);
gotoXY(25,whereY);write('|',kvm:10);
gotoXY(40,whereY);write('|',sum:9);
gotoXY(52,whereY);writeln('|');
end;
writeln('----------------------------------------------------');
write('Нажмите Enter для продолжения...');
readln;
writeln('Сведения о средней стоимости 1 квартиры:');
writeln('-----------------------------------------------------');
writeln('| Город |Кол.квартир|Кол.кв.метров |Ср.стоимость|');
writeln('-----------------------------------------------------');
for i:=1 to n do
with a[i] do
begin
gotoXY(1,whereY);write('| ',gor);
gotoXY(13,whereY);write('|',kol:7);
gotoXY(25,whereY);write('|',kvm:10);
gotoXY(40,whereY);write('|',srd:10:2);
gotoXY(53,whereY);writeln('|');
end;
writeln('-----------------------------------------------------');
readln
end.

2.
Program pr2; 
var
i,a,b,c,d,e,suma,sumb,sumc,sumd,sume:integer;
begin
a:=100;
b:=80;
c:=100;
d:=90;
e:=85;
suma:=a;
sumb:=b;
sumc:=c;
sumd:=d;
sume:=e;
writeln('-------------------');
writeln('1 месяц:');
writeln('-------------------');
writeln('Литейный: ',a,' МВт-час');
writeln('Кузнечный: ',b,' МВт-час');
writeln('Ремонтный: ',c,' МВт-час');
writeln('Формовочный: ',d,' МВт-час');
writeln('Сборочный: ',e,' МВт-час');
writeln('-------------------');
for i:=2 to 12 do
begin
writeln(i,' месяц:');
writeln('-------------------');
a:=random(400)+100;
suma:=suma+a;
writeln('Литейный: ',a,' МВт-час');
b:=random(400)+100;
sumb:=sumb+b;
writeln('Кузнечный: ',b,' МВт-час');
c:=random(400)+100;
sumc:=sumc+c;
writeln('Ремонтный: ',c,' МВт-час');
d:=random(400)+100;
sumd:=sumd+d;
writeln('Формовочный: ',d,' МВт-час');
e:=random(400)+100;
sume:=sume+e;
writeln('Сборочный: ',e,' МВт-час');
writeln('-------------------')
end;
writeln('За год:');
writeln('Литейный: ',suma,' МВт-час');
writeln('Кузнечный: ',sumb,' МВт-час');
writeln('Ремонтный: ',sumc,' МВт-час');
writeln('Формовочный: ',sumd,' МВт-час');
writeln('Сборочный: ',sume,' МВт-час')
end.

Зарание большое спасибо!!!!!!!!



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

Модератор.

[Vanta11a]

Базу получать тут:
http://paslab.ru/blok-shema.php

Уточнять по ГОСТ 19.701-90

[olesia @@@]

эта программа не вывозит этот код, но спасибо

[BDA]

FCEditor Вам в помощь.

[Vanta11a]

Было бы в этом коде, что вывозить...

Я ж сказал, потом надо править с оглядываться на ГОСТ.