T mới làm thử vd 1 à, vd 2 chưa thử .-.

const fi='xethang.inp';
      fo='xethang.out';
var n,i,j,t:integer;
    k,c:real;
    a: array [1..100] of integer;
    d:array [1..100]  of byte;
procedure sort;
begin
        for i:=1 to n-1 do
                for j:=i+1 to n do
                        if a[i]>a[j] then
                        begin
                                t:=a[j];
                                a[j]:=a[i];
                                a[i]:=t;
                        end;
end;
begin
        assign(input,fi);
        reset(input);
        readln(n,k);
        for i:=1 to n do
                begin
                        read(c);
                        a[i]:=trunc(c*10);
                end;
        close(input);
        sort;
        for i:=1 to n do inc(d[a[i]]);
        assign(output,fo);
        rewrite(output);
        if a[n]>k then writeln(a[n]/10-k:0:1) else writeln(0);
        writeln(d[a[n]],' ',a[n]/10:0:1);
        if d[a[n]]>1 then writeln(0) else writeln(d[a[n-1]],' ',a[n-1]/10:0:1);
        if d[a[n-d[a[n]]]]>1 then writeln(0) else writeln(d[a[n-d[a[n]]]],' ',a[n-d[a[n]]]/10:0:1);
        close(output);
end.

program cau_nay_kho_phet_day;

uses crt;

var a: array[1 to 1000] of real;

a,b,c,d,e,r: real;

i: integer;

begin

clrscr;

writeln('nhap so diem ki luc cua truong'); readln(ac);

writeln('nhap so hoc sinh tham gia du thi'); readln(b);

for i:=1 to b do;

begin

writeln('so hoc sinh thu ',i,'dat diem la:');

readln( a[i] );

end;

for i:=1 to b do;

begin

if a[i] > c then writeln(' ban thu ', i, ' da pha ki luc') and d:=d+1;

if d=0 then writeln('am nay khong co ai pha ki luc');

end;

readln;

end.