program Min;
uses crt;
var st:string;
begin
clrscr;
repeat
begin
writeln('Nhap mot chuoi: '); readln(st);
end;
until st='Cam khong duoc do rac';
if st='Cam khong duoc do rac' then writeln('Rac do duoc khong cam');
readln
end.
Thật sự đề này khá là thú vị a :D