PROGRAM XAU;
USES crt;
VAR N1 ; N2 : String;
a ; i :Bytbe;
BEGIN
clrscr;
write(' Nhap xau N1:') ; Readln(N1);
N2:=' '
for i:=1 to Length(N1) do
If ( 'a'<=N1
moa cai dau doi ty qua kia lam
{PROGRAM XAU;
USES crt;
VAR N1 ; N2 : String;
a ; i :Bytbe;
BEGIN
clrscr;
write(' Nhap xau N1:') ; Readln(N1);
N2:=' '
for i:=1 to Length(N1) do
If ( 'a'<=N1[i]) and (N2[i]<='z')then
N2:=N2+N1[i];
Write ('Xau moi',N2);
Readln;
end.
}