contoh pemograman pascal kondisional

program kondisi2;

uses wincrt;

var pilih,lagi:char;

begin

lagi:='y';

while lagi='y' do

writeln('MENU PILIHAN');

writeln('1.mencari bulan ke1');

writeln('2.mencari bulan ke2');

writeln('3.mencari bulan ke3');

writeln('4.mencari bulan ke4');

writeln('5.mencari bulan ke5');

writeln('6.selesai');

write('pilihan anda [1..6]-->');readln(pilih);

case pilih of

'1':

    begin

    writeln('januari');

    end;

'2':

    begin

    writeln('februari');

    end;

'3'

    :writeln('maret');

'4'

    :writeln('april');

'5':

    begin

    writeln('mei');

    end;

'6':

    begin

    writeln('terimakasih');

    lagi:='t';

        halt;

        exit;

    end;

end;

end.