01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / PUZYR

program puzyr;
var
  b:array[1..20] of real;
  m,i,j:integer;
  s:real;
BEGIN
   write('ўўҐ¤ЁвҐ а §¬Ґа­®бвм ¬ ббЁў ');
   readln(m);
   write('ўўҐ¤ЁвҐ ¬ ббЁў');
   for i:=1 to m do
   read(b[i]);
   for i:=1 to m do
   for j:=1 to m-i do
   if b[j]>b[j+1]
   then begin
   s:=b[j];
   b[j]:=b[j+1];
   b[j+1]:=s;
        end;
   for i:=1 to m do
   writeln(trunc(b[i]));
   readln
END.