Program Menghitung Kemunculan Huruf "rhend"

program limahuruf;

kamus

cc:char
ci,jumlah:integer
pita:string

Algoritma

output('masukkan kalimat : ')
input(pita)
jumlah<-0
start
while (cc<>'.') do
begin
if (cc='r') then
begin
adv
if (cc='h') then
begin
adv
if (cc='e') then
begin
adv
if (cc='n') then
begin
adv
if (cc='d') then
begin
jumlah:=jumlah+1
end
end
end
end
end
adv
end
output('jumlah huruf rhend adalah : ',jumlah)

end.