var n,k:longint;
    a:array[1..1000000] of longint;
procedure quicksort(l,r:longint);
var x,i,j,t:longint;
begin
        x:=a[(l+r) div 2];
        i:=l;
        j:=r;
        repeat
                while a[i]<x do inc(i);
                while a[j]>x do dec(j);
                if i<=j then
                begin
                        t:=a[i];
                        a[i]:=a[j];
                        a[j]:=t;
                        inc(i);
                        dec(j);
                end;
        until i>j;
        if l<j then quicksort(l,j);
        if i<r then quicksort(i,r);
end;
begin
        assign(input,'1.inp') reset(input);
        assign(output,'1.out') rewrite(output);
        readln(n,k);
        for i:=1 to n do
                read(a[i]);
        quicksort(1,n);
        for i:=1 to k do
                writeln(a[i],' ');
end.

// From a Pro Dev

Thuật toán cơ bản như thế này, lâu ko code pas nên ko bt có đúng hết cách ghi mấy câu lệnh ko, bn dựa vào code mình để tham khảo nhé

uses crt;
var n,i,j,k,t:longint;
    a:array[1..100005] of longint;
begin//n
clrscr;
readln(n,k);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
begin
 for j:=i+1 to n do
 begin
  if a[i]>a[j] then
  begin
   t:=a[i];
   a[i]:=a[j];
   a[j]:=t;
  end;
 end;
end;
for i:=1 to k do
write(a[i],' ');
readln;
end.