viết chương trình nhập vào từ bàn phím xâu kí tự s. hãy in ra màn hình có bao nhiêu kí chữ cái xuất hiện trong xâu s? ví dụ: s='lop chung minh co 43 ban ' kết quả:17

program cho5saonha;

uses     crt;

var         s:string;

              i,dem:integer;

BEGIN

   CLRSCR;

   write('Nhap xâu'); readln(s);

   for i:=1 to length(s) do

     if (s[i] in ['A'..'Z']) or (s[i] in ['a'..'z']) then inc(dem);

   write(dem);

    readln; 

End.

Program FNG;
Uses crt;
Var St: String;
    i,d: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do St[i]:=Upcase(St[i]);
        d:=0;
        For i:=1 to n do If St[i] in ['A'..'Z'] then inc(d);
        Write(d);
        Readln
End.