BEGIN
	strSentence <- GET FROM USER
	strLetter <- GET FROM USER
	intLetterCount <- 0
	FOR LOOP(i <- 0; i < strSentence Length; i++)
		IF strSentence substring(i, 1) == strLetter
			intLetterCount <- intLetterCount + 1
		END IF
	END FOR LOOP
	DISPLAY strLetter appeared intLetterCount times!
END