uses crt;
var n,i:integer;
    A:array[1..100] of integer;
begin
        clrscr;
        write('Nhap so hoc sinh: '); readln(n);
                for i:=1 to n do
                        begin
                                write('Diem tin hoc sinh thu ',i,' : ');
                                readln(A[i]);
                        end;
        writeln('Diem tin cua cac hoc sinh la: ');
        for i:=1 to n do
        write(A[i],',');
        readln
end.

uses crt;

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

i, N : integer;

begin

clrscr;

write('Nhap N = '); readln(N);

for i := 1 to N do

    begin

        write('Diem HS ', i ,' : ');

        readln(B[i]);

    end;

write('Diem cua ', N ,' HS : ');

for i := 1 to N do write(B[i] : 2 : 1,'  ');

readln

end.