помогите составить блок схему по задаче...

[delivery123]

сабж:

type info=record
F:integer; {Фонд}
R:integer; {Работники}
end;
var mas:array[1..100] of info;
P:integer; {Колличество предприятий}
i:integer;
d:real;
begin
write('Введите колличество предприятий(Р):');
readln(P);
for i:=1 to p do
begin
write('Введите фонд оплаты труда(F) ',i,' предприятия :');
readln(mas[i].F);
write('Введите колличество работников ',i,' предприятия :');
readln(mas[i].R);
end;
writeln;
d:=0;
for i:=1 to p do
begin
writeln('Средняя зарплата работников ',i,' предприятия= ',mas[i].F/mas[i].R:6:1);
d:=d+mas[i].F/mas[i].R;
end;
writeln('Средняя зарплата всех предприятий = ',d/p:6:1);
readln;
end.

заранее благодарен

[Наталья111]

Насколько я поняла твой алгоритм вот блок-схема: