Algoritma Calon_pemilih
Deklarasi         Status
: string
                        Menikah : string
                        Umur : integer
Deskripsi       
write('status
:') Readln(Status)
            If
(Status='WNI') then
                write('menikah :') readln(menikah)
                        If (Menikah='Ya') then
                
           Writeln('Pemilih')
                        else
                
           write('umur :') readln(umur)
                            If
(Umur > 17) then
                                Writeln('Pemilih')
                            else
                
               write('Bukan
Pemilih')
            endif
            Else
            Write('Bukan
Pemilih')
Penyelesaian
dengan Program Pascal
program Calon_pemilih;
uses crt;
var       Status
: string;
            Menikah : string;
            Umur
: integer;
Begin
       
write('status :');Readln(Status);
            If
(Status='WNI') then
            begin
             
write('menikah :');readln(menikah);
             
If (Menikah='Ya') then
                
Writeln('Pemilih')
             
else
                
write('umur :');readln(umur);
                         If (Umur > 17) then
                            Writeln('Pemilih')
                
else
                
write('Bukan Pemilih');
        end
            Else
            Write('Bukan
Pemilih');
end.
 
 
