Program HOC24;
var a: array[1..100] of string;
i: integer;
begin
write('Nhap so ban trong to cua minh : '); readln(n);
for i:=1 to n do
begin
write('Nhap ho va ten cua ban thu ',i,' : '); readln(a[i]);
end;
writeln('Danh sach cac ban hoc sinh trong to la : ');
for i:=1 to n do writeln(a[i]);
readln
end.