Спо информатике в паскале программу написать надо

const n = 10;

var ar: array[1..n]of integer;

i,j,tmp: integer;

begin

randomize;

write('массив до сортировки: ');

for i: =1 to n do

begin

ar[i]: =random(101)-50;

write(ar[i], ' ');

end;

for i: =1 to n do

begin

for j: =i to n do

begin

if(ar[i] > ar[j])then

begin

tmp: =ar[i];

ar[i]: =ar[j];

ar[j]: =tmp;

end;

end;

end;

writeln();

write('массив после сортировки: ');

for i: =1 to n do

begin

write(ar[i], ' ');

end;

end.

количество кбайт умножаете на 1024 получаете количество символов 3,5*1024=3584