Program Menghitung Kemunculan Huruf "rhen"

program empathuruf

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
jumlah:=jumlah+1
end
end
end
adv
end
write('jumlah huruf rhen adalah : ',jumlah)
end.