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

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.

program pr;

var mas: array[1..40] of integer;

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

программу проверил все работает

сумма=18

семерки нету

или тебе программу написать?