с информатикой очень нужно​

program sorting;

const

 N = 10;

var

 v: array[1..N] of integer;

 d: integer;

 i, t: integer;  

 k: boolean;  

begin

 randomize;

 write('ДО сортировки:    ');

 for i := 1 to N do

 begin

   readln(v[i])

   write(v[i]:6);

 end;

}  

 d := N div 2;

 while(d > 0) do

 begin

   k := true;  

   while k do

   begin

     k := false;

     i := 1;

     for i := 1 to N - d do

     begin

       if(v[i] > v[i + d]) then

       begin

         t := v[i];

         v[i] := v[i + d];

         v[i + d] := t;

         k := true;

       end;

     end;

   end;    

   d := d div 2;

 end;

 writeln;

 write('ПОСЛЕ сортировки: ');

 for i := 1 to N do

   write(v[i]:6);

 writeln;

end.

Var  a,b,p,n,x,i:integer;
begin
writeln('Сколько примеров будешь решать:');
readln(n);
for i:=1 to n do
  begin
  a:=random(10)+1;
  b:=random(10)+1;
  write('Сколько будет ',a,'+',b,'=');
  readln(x);
  if x=a+b then
    begin
    p:=p+1;
    writeln('Правильно');
    end
    else writeln('Неверно');
  end;
writeln('Число правильных ответов: ',p);
if p=n then writeln('Отлично, ты превосходно знаешь арифметику');
if (p<n) and (p/n>0.75) then writeln('Хорошо, ты неплохо знаешь арифметику');
if (p/n<=0.75) and (p/n>0.5) then writeln('Удовлетворительно, ты средне знаешь арифметику');
if (p/n<=0.5) and (p>0) then writeln('Плохо, ты не знаешь арифметику');
if p=0 then writeln('Отвратительно, ты абслютно не знаешь арифметику');
end.

Можно сделать, чтобы не только на сложение, а на все 4 действия.