Блок схема

[moonlight*]

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

var
a:array[1..100] of Integer;
b:array[1..100] of Integer;
i,n: Integer;
bk,ak,couble;
begin
ak:=0;
bk:=0;
Write('n ->'); readln(n);
Writeln('Vvodumo a');
For i:=1 to n do
begin
Write('->');readln(a[i]);
ak:=ak+a[i]*a[i];
end;
Writeln('Vvodumo b');
For i:=1 to n do
begin
Write('->');Readln(b[i]);
bk:=bk+b[i]*b[i];
end;
ak:=sqrt(ak);
bk:=sqrt(bk);
Write('Vvodumo kyt ->');
readln(c);
c:=cos(c)*ak*bk;
Writeln;
For i:=1 to n do Writeln(b[i]/c);
Readln;
end.


ЗАРАНИЕ СПАСИБО!!!!

[Mad_Cat]

перерисуй как вас учили!

[moonlight*]

Если не сикрет через што делал?)))

[Anton-Top]

Наверно он делал с помощью мозгов и любого графического редактора)