Contoh program Pascal menggunakan If…then..else

program menumakan_bytaufik;
uses crt;
var pil:char;
begin
writeln(’1.nasi soto ‘ ) ;
writeln(’2.nasi rames ‘ );
writeln(’3.nasi rawon ‘ ) ;
write(’menu pilihan anda:’);readln(pil);
if pil=’1′ then
writeln(’anda memilih nasi soto ‘ )
else if pil=’2′ then
writeln(’anda memilih nasi rames ‘ )
else if pil=’3′ then
writeln(’anda memilih nasi rawon ‘ )
else
writeln(’coba1_3′);
readln;
end.