[COLOR=#a020f0]program[/color] countletter
[COLOR=#2e8b57][b]implicit[/b][/color] [COLOR=#2e8b57][b]none[/b][/color]
[COLOR=#2e8b57][b]integer[/b][/color] :: i, numberoftimes
[COLOR=#2e8b57][b]character[/b][/color] :: letter, letter1
[COLOR=#2e8b57][b]character[/b][/color]([COLOR=#2e8b57][b]len[/b][/color][COLOR=#804040][b]=[/b][/color][COLOR=#ff00ff]30[/color])::sentence [COLOR=#804040][b]=[/b][/color] [COLOR=#ff00ff]"I don't know how to do it."[/color]
[COLOR=#804040][b]write[/b][/color]([COLOR=#804040][b]*[/b][/color],[COLOR=#804040][b]*[/b][/color])[COLOR=#ff00ff]'Enter a letter'[/color]
[COLOR=#804040][b]read[/b][/color]([COLOR=#804040][b]*[/b][/color],[COLOR=#804040][b]*[/b][/color]) letter
numberoftimes [COLOR=#804040][b]=[/b][/color] [COLOR=#ff00ff]0[/color]
[COLOR=#804040][b]do[/b][/color] i[COLOR=#804040][b]=[/b][/color][COLOR=#ff00ff]1[/color], [COLOR=#008080]len_trim[/color](sentence)
letter1[COLOR=#804040][b]=[/b][/color]sentence(i:i)
[COLOR=#804040][b]if[/b][/color] (letter[COLOR=#804040][b]==[/b][/color]letter1) [COLOR=#804040][b]then[/b][/color]
[COLOR=#804040][b]write[/b][/color]([COLOR=#804040][b]*[/b][/color],[COLOR=#804040][b]*[/b][/color]) [COLOR=#ff00ff]'I found your letter'[/color]
numberoftimes [COLOR=#804040][b]=[/b][/color] numberoftimes [COLOR=#804040][b]+[/b][/color] [COLOR=#ff00ff]1[/color]
[COLOR=#804040][b]end if[/b][/color]
[COLOR=#804040][b]end do[/b][/color]
[COLOR=#804040][b]write[/b][/color]([COLOR=#804040][b]*[/b][/color],[COLOR=#804040][b]*[/b][/color]) [COLOR=#ff00ff]"The sentence is '"[/color], [COLOR=#008080]trim[/color](sentence), [COLOR=#ff00ff]"'"[/color]
[COLOR=#804040][b]write[/b][/color]([COLOR=#804040][b]*[/b][/color],[COLOR=#804040][b]*[/b][/color]) [COLOR=#ff00ff]"You chose the letter '"[/color], letter, [highlight #ffff00][COLOR=#0000ff]&[/color][/highlight]
[COLOR=#ff00ff]"' and the number of times it appears is "[/color], numberoftimes
[COLOR=#a020f0]end program[/color] countletter