program hoten;
uses crt;
var ht:array[1..100] of string;
i,tv:byte;
lop:string;
begin
clrscr;
write('Nhap ten lop: '); readln(lop);
write('Nhap so luong thanh vien lop: '); readln(tv);
for i:=1 to tv do
begin
write('Ten ban thu ',i,': ');
readln(ht[i]);
end;
readln
end.