var a: array[1..100] of real;

      n, i, d: byte;

Begin

    Write('nhap so hoc sinh: '); readln(n);

    D:=0;

    For i:=1 to n do

      Begin

         Write('diem hoc sinh thu ', i, ' la: ');

         Readln(a[i]);

         If a[i]=10 then inc(d);

      End;

    Write('co ', d, ' hoc sinh dat diem 10');

    Readln

End.

program phuongt;
uses crt;
   var A: array[1..100] of integer;
         i, n: integer;
begin
        clrscr;
        write('Nhap so hoc sinh: '); readln(n);
        for i:=1 to n do
        begin
                write('Diem cua ban thu ', i, ': '); readln(A[i]);
        end;
        write('Cac ban duoc diem 10 la: ');
        for i:=1 to n do if A[i]=10 then write(A[i]:3);
        readln
end.