program pascal menu

program manu;
uses crt;
var
pil: byte ;
nilai,suhu,bulan:longint;
A,B:integer;

 begin
  textcolor(46);   ;

 writeln('-------------------------------------') ;
 writeln('           menu                      ') ;
 writeln('-------------------------------------') ;
 writeln('1.menentukan bilangan ganjil atau genap') ;
 writeln('2.penntuan wujud') ;
 writeln('3.konversi bulan') ;
 writeln('4.menghitung angka terbesar terkecil') ;
 writeln('-------------------------------------') ;
write('pilih 1-4:') ; read(pil)   ;
writeln('-------------------------------------') ;
 case pil of
1:begin

   write('Nilai = ');readln(nilai);
   if (nilai mod 2 = 0) then
   writeln('Bilangan Genap')
else
writeln('Bilangan Ganjil')  ;


 

end;
2:BEGIN
write('masukan nilai suhu:') ;readln(suhu) ;
write('suhu');
if   suhu <=0 then
writeln('padat')
else
if suhu <=100then
writeln('cair')
else
if suhu>=100then
writeln('gas')
end;
3:
begin
writeln('masukan angka bulan :');readln(bulan)  ;
if( bulan=1)then
writeln ('januari')
else
if (bulan=2)then
writeln ('februari')
else
if (bulan=3)then
writeln ('maret ')
else
if (bulan=4)then
writeln ('april')
else
if (bulan=5)then
writeln ('mei')
else
if( bulan=6)then
writeln ('juni')
else
if (bulan=7)then
writeln ('juli')

else
if( bulan=8)then
writeln ('agustus')
else
if (bulan=9)then
writeln ('seftember')
else
if( bulan=10)then
writeln ('november')
else
if( bulan=11)then
writeln ('oktober')
else
if( bulan=12)then
writeln ('desember')
else
writeln('eror')
end;
4 :
  begin
       writeln('Menentukan Bilangan Terbesar dan Terkecil');
       writeln;
       write('masukkan nilai A:  '); readln(A);
       write('masukkan nilai B:  '); readln(B);
       if (A > B) then
       writeln('A lebih besar nilainya dari pada B')
       else if (B > A) then
       writeln('B lebih besar nilainya dari A');
       end;
       end;
       readkey;

end.