5. Процедура есть в тексте программы, но не срабатывает. В чём может быть причина?
6. Куда передаётся управление, если процедура вызывается и са-
мом конце основной программы (за ним нет других команд)?​

Код Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 const n=100; type arr=array[1..n] of integer; var   a:arr;   skv:real;   i,k,l:integer; procedure print(s:string;a:arr;l:integer); var   i:integer; begin   writeln(s);   write('[');   for i:=1 to l-1 do write(a[i],', ');   writeln(a[l],']'); end; procedure sort(var a:arr;l:integer); var   i,j,t:integer; begin   for i:=1 to l-1 do     for j:=i to l do       if a[j]<a[i] then begin         t:=a[j];         a[j]:=a[i];         a[i]:=t;       end; end; begin   repeat     write('Количество элементов массива:');     readln(k);   until (k>0) and (k<101);   write('Введите массив:');   for i:=1 to k do     repeat       write('a[',i,']=');       readln(a[i]);     until (a[i]>-11) and (a[i]<11);   print('Оригинальный массив:',a,k);   l:=0;skv:=0.0;   for i:=1 to k do     if a[i]<0 then begin       a[i]:=sqr(a[i]);       skv:=skv+a[i];       l:=l+1;     end else a[i]:=i;   print('Полученный массив:',a,k);   sort(a,k);   print('отсортированный массив:',a,k);   writeln('Среднее арифметическое квадратов отрицательных чисел:',skv/l:0:4);   readln; end.

uses graphabc;

begin

setwindowsize (600,555);

SetPenWidth(2);

rectangle (200,200,400,499);

FloodFill(300,300,clBurlyWood);

rectangle (225,225,275,275);

FloodFill(250,250,clLightCyan);

line (225,250,275,250);

line (250,250,250,275);

rectangle (325,225,375,275);

FloodFill(350,250,clLightCyan);

line (325,250,375,250);

line (350,250,350,275);

rectangle (225,400,275,450);

FloodFill(250,425,clLightCyan);

line (225,425,275,425);

line (250,425,250,450);

rectangle (325,425,375,500);

FloodFill(350,490,clMaroon);

pie (350,425,25,0,180);

FloodFill(350,420,clMaroon);

line (200,200,300,100);

line (300,100,400,200);

FloodFill(300,110,clChocolate);

circle (300,160,20);

FloodFill(300,160,clLightCyan);

line (375,175,375,100);

line (375,100,355,100);

line (355,100,355,155);

FloodFill(370,110,clLightGray);

circle (550,50,30);

FloodFill(525,50,clYellow);

line (535,25,510,0);

line (525,35,470,15);

line (520,50,475,50);

line (525,65,485,90);

line (537,78,505,110);

line (550,80,535,120);

line (565,75,565,120);

line (575,65,595,90);

pie (500,413,30,0,180);

FloodFill(500,400,clRed);

rectangle (495,413,505,500);

FloodFill(500,495,clChocolate);

end.