Uses Crt; Var hovten:array[1..40] of string; i:integer; Begin Clrscr; For i:=1 to 40 do Begin Write('Nhap ten hoc sinh so ',i,' vao day:'); Readln(hovten[i]); End; Delay(70); Writeln('Chao cac ban trong lop nha :)))'); Readln End. *Nhớ tick và chọn làm câu trả lời hay nhất giúp mình nhé! Đảm bảo đúng hết luôn nhớ www :D Uy tín luôn :333 *P/s:Hỏi và đáp, comment giải đáp!