Упорядочить одномерный числовой массив по возрастанию(pascal)

uses crt;

const n=10;

var a: array[1..n]ofinteger;          

  i,j,k: byte; c: integer;

begin  

randomize;  

clrscr;  

writeln('исходный массив: ');  

for i: =1to n do   begin    

a[i]: =random(19)-9;  

  write(a[i]: 3);   end;   writeln;

  k: =0;   for i: =1to n-1do   f

or j: =i+1 to n do     if a[i]> a[j] then     begin      

c: =a[i];      

a[i]: =a[j];    

  a[j]: =c;      

inc(k);    

end;  

writeln('результат сортировки: ');

  for i: =1 to n do   write(a[i]: 3);  

writeln;  

writeln('кол-во перестановок = ',k);

end.

$ python3.1

Python 3.1a1 (py3k, Sep 12 2007, 12:21:02)

[GCC 3.4.6 20060404 (Red Hat 3.4.6-8)] on linux2

Type "help", "copyright", "credits" or "license" for more information.

>>>

Продолжающие строки используются в случаях, когда необходимо ввести многострочную конструкцию. Взгляните, например, на следующий оператор if[6]:

>>> the_world_is_flat = 1

>>> if the_world_is_flat:

...     print("Be careful not to fall off!")

...

Be careful not to fall off