PROGRAM PASCAL 4 PROCEDURE

Contoh lain untuk program Pascal 4 Prosedur

program hakpilih;

uses wincrt;

var  KWN, KS, umur : integer;

     nama : string;

begin 
     writeln('=========== Panduan ===========');

     writeln('kode warga Negara : ');

     writeln('1.WNI');

     writeln('2.WNA');

     writeln('kode status : ');

     writeln('1.menikah');

     writeln('2.tidak menikah');

     writeln('===============================');

     write('masukan nama : '); readln(nama);

     write('masukan kode KWN : ' ); readln(KWN);

     if KWN = 1 then

        begin

        write('masukan umur : '); readln(umur);

        if umur >= 17 then writeln(nama, ' sudah termasuk hak pilih')

        else

            begin

            write('masukan kode status : '); readln(KS);

            if KS = 1 then writeln(nama, ' sudah termasuk hak pilih')

            else writeln(nama, ' belum termasuk hak pilih');

            end;

        end

     else

           writeln(nama, ' belum termasuk hak pilih ');

end.

Nah, Hasil jika di Run pada TPW:

Terima Kasih...:)