program Hello;
uses crt;
var i,j:longint;
n:string;
begin
clrscr;
write('nhap n: ');
readln(n);
for i:=1 to length(n)-1 do
begin
if n[i]>n[i+1] then
j:=1;
end;
if j<>1 then
write('Co.')
else
write('Khong.');
end.
length(x): đo độ dài của chuỗi x
break: thoát vòng lặp.