Помогите составить блок схему из метода паскаля?Вот алгоритмvar a:array[1..10] of

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

Вот метод

var
a:array[1..10] of integer;
N,K,L,i,Sum:Integer;

begin
Write('N: ');
Readln(N);
Write('K: ');
Readln(K);
Write('L: ');
Readln(L);
for i:=1 to N do
begin
write(i,' :');
readln(a[i]);
end;

Sum:=0;
for i:=1 to k-1 do Sum:=Sum+a[i];
for i:=l+1 to n do Sum:=Sum+a[i];

Writeln (Sum/((k-1)+(n-l)));
Readln;
end.

Adelina Ogolenko 2019-07-14 23:10:10

Откуда взялась переменная l?