Пример кода на Pascal:

program CountLetterD;
var
inputString: string;
countD: Integer;
i: Integer;
begin
countD := 0;
Write('Enter a string: ');
ReadLn(inputString);
for i := 1 to Length(inputString) do
begin
if inputString[i] = 'd' then
countD := countD + 1;
end;
WriteLn('The letter "d" occurs ', countD, ' times in the input string.');
end.

Эта программа считает, сколько раз символ "d" встречается во введенной строке и выводит результат на экран.