Đề: Viết CT nhập vào tên cho tất cả HS trong trường. Việc nhập dừng lại khi tên nhập vào là “STOP”. *Dùng biến mảng

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.