uses crt;
var s:string;
    i,dem:integer;
begin
        write(‘nhap 1 xau bat ky: ‘); readln(s);
        write(‘ky tu dau tien trong xau la: ‘);
        for i:=1 to length(s) do
                if (‘A'<=s[i]) and (‘z’>=s[i]) then
                        begin
                                write(s[i]);
                                dem:=dem+1;
                                if dem=1 then break;
                        end;
        readln;
end.

uses crt;
var s:string;
    i,dem:byte;
begin
   write('Nhap xau: '); readln(s);
   writeln;
   write('Ky tu dau tien la: ');
   for i:=1 to length(s) do
   if ('A'<=s[i]) and ('z'>=s[i]) then 
   begin
   write(s[i]);
   inc(dem);
   if dem=1 then break;
   end;
   readln
end.