Program Repeat Until Dengan Bahasa PACSAL

Program JumlahHuruf;

Uses Crt;

Var

i,jumhuruf,jumspasi:integer;

kal:string;

huruf,lagi:char;

Begin

repeat

clrscr;

write('Masukkan Kalimat: ');

readln(kal);

jumhuruf:=0;

jumspasi:=0;

for i:=1 to length(kal) do

begin

huruf:=kal[i];

if huruf=' ' then

jumspasi:=jumspasi+1

else

jumhuruf:=jumhuruf+1;

end;

writeln('Jumlah huruf : ',jumhuruf);

writeln('Jumlah spasi : ',jumspasi);

writeln;

write('Ingin mencoba lagi? ');

readln(lagi);

until (lagi='t') or (lagi='T');

readln;

End.