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.