блок-схема!!!

[casper116]

program pr1;
const n=10;
var x:array[1..n] of real;
    A:array[1..n] of real;
    i,kolotr:integer;
begin
writeln('Vvedite massiv:');
for i:=1 to n do read(A[i]);
for i:=1 to n do
begin
 if A[i]<0 then
begin
kolotr:=kolotr+1;
x[kolotr]:= A[i];
end;
end;
for i:=1 to kolotr do Write(' ',x[i]:0:0);
Writeln;
Write(' Koli4estvo = ',kolotr);
readln;
readln;
end.

помогите составить блок-схему к проге. Спасибо заранее!

[Niro]

По хорошему бы надо писать еще и задание, что требуется в данной проге, конечно не сложно понять, но при более сложном алгоритме не стал бы и разбираться.
Блок схемы я не составлял уже давно, так что не помню вводим ли мы элементы массива в не или нет и выводим ли, но сам рабочий блок выглядит так

[dosha]

Niro наф мучаться с схемами если есть FCEditor, класная штука для C# и Pascal

[Niro]

наф мучаться с схемами если есть FCEditor, класная штука для C# и Pascal

Так я не мучался, просто знаю что на компе валется вордовский файл, с какой-то левой схемой, так что исправить было делом одной минуты

[casper116]

Спасибо! Оч помогло!))