program ten_hocsinh;
uses crt;
var A:array[1..1000] of string;
i,n:integer;
begin
clrscr;
n:=0;
repeat
n:=n+1;
write('Nhap ten ban thu ',n,': '); readln(A[n]);
until A[n]='STOP';
writeln('Danh sach ten hoc sinh la: ');
for i:=1 to n do
writeln('Ten ban thu ',i,': ',A[i]);
readln;
end.