nhập vào 1xâu bất kì từ bản phím đưa ra màn hình câu có 1 kì tự ( là kí từ đầu tiên của xấu nhập vào ) VD input lop11a4 Output : l

program oken;
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:integer;
begin
   write('Nhap xau: '); 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.