Viết trương trình nhập vào xâu s và thông báo ra màn hình số lần xuất hiện của 1 chữ cái n có trong cái s

#include <iostream>

#include <string>

int main()

{

    //Nhập vào s, n.

    string s;

    char n;

    cin >> s >> n;

    //Biến đếm:

     int dem = 0;

    //Duyệt xâu s:

    for (int i = 0; i<s.length(); ++i) if (S[i] == n) ++dem;

    //Xuất ra màn hình biến đếm:

    cout << dem;

    return 0;

}

program xau;
uses crt;
var S,n:string;
    i,d:integer;
begin
    clrscr;
    write('Nhap xau S: '); readln(S);
    write('Nhap n: '); readln(n);
    For i:=1 to length(S) do if S[i]=n then inc(d);
    writeln(n,' xuat hien ',d,' lan trong xau S');
    readln;
end.