Viết chương trình nhập vào thông tin cho các bạn học sinh, họ và tên, lớp, đại chỉ. Kết thúc việc nhập thông tin cho mỗi bạn là câu hỏi:’các bạn có mu

program thongtin;

uses crt;

var st:string;

begin

clrscr;

repeat

 begin

  write(‘Nhap ten: ‘);   readln(st);

  write(‘Lop: ‘);  readln(st);

  write(‘Nhap dia chi: ‘);   readln(st);

  write(‘Ban co muon nhap nua khong (k=khong)’);   readln(st);

 end;

until st=’k’;

readln

end.