viết chương trình nhập vào 1 xâu từ bàn phím in ra màn hình các chữ cái có trong xâu khong phân biệt chữ hoa hay chữ thường

Program HOC24;

var s: string;

i,d: byte;

begin

write(‘Nhap xau: ‘); readln(s);

d:=0;

for i:=1 to length(s) do if (s[i]=’b’) or (s[i]=’B’) then d:=d+1;

write(‘Co ‘,d,’ ki tu B trong xau’);

readln

end.