uses crt;
var s,ih: string;
i: byte;
begin
clrscr;
write ('nhap xau: '); readln (s);
for i:=1 to length(s) do
if upcase(s[i])=s[i] then ih:=ih+s[i];
writeln ('xau la ki tu in hoa co trong xau vua nhap la: ');
for i:=1 to length(ih) do write (ih[i]);
readln;
end.
xin hay nhất !!!