Пожалуйста посчитайте пожалуйста решить задачку....ввести a и b и вывести квадрат и кубы чисел от a до bПример:Введите границы интервала4 16 645 25 1256 36 216

Код Pascal12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152const n=100;type arr=array[1..n] of integer;vara:arr;skv:real;i,k,l:integer;procedure print(s:string;a:arr;l:integer);vari:integer;beginwriteln(s);write('[');for i:=1 to l-1 do write(a[i],', ');writeln(a[l],']');end;procedure sort(var a:arr;l:integer);vari,j,t:integer;beginfor i:=1 to l-1 dofor j:=i to l doif a[j]<a[i] then begint:=a[j];a[j]:=a[i];a[i]:=t;end;end;beginrepeatwrite('Количество элементов массива:');readln(k);until (k>0) and (k<101);write('Введите массив:');for i:=1 to k dorepeatwrite('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 doif a[i]<0 then begina[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.