program menu matematika

program Menu;
uses
    winCrt;

procedure menu_prog;
 begin
  gotoxy (6,2) ; writeln('MENU PROGRAM MATEMATIKA');
 end;

procedure bintang;
 begin
   writeln;
   writeln('*****************************************');
   writeln;
 end;

procedure exit;
  begin
    writeln('KELUAR');
  end;

procedure Deret (var n :integer);
var
 a,jumlah:byte;
 begin
  a:= 1; jumlah:=0;
  while a<= n do
   begin
     write(a:3);
     jumlah:=jumlah+a;
     a:=a+1;
   end;
  writeln;
  writeln('Total Jumlah Deret : ',jumlah);
 end;

procedure balok(var p,l,t : integer;  luas : integer) ;
 begin
   writeln;
   luas:= 2 * ((p*l) + (p*t) + (l+t));
   writeln('Luas Balok adalah  ',luas,' cm');
 end;

function Bilangan (var nilai :integer ): string ;
 begin
    writeln;
    if (nilai Mod 2) = 0 then
    writeln ('Nilai ',nilai,' ','adalah Genap')
    else
    writeln('Nilai ',nilai,' ','adalah Ganjil');
 end;

 var
 n1,n2,n3,luas,pil:integer;
 ulang :char;

 begin
 ulang:='Y';
 while (ulang='Y') or (ulang='y') do
  begin
  menu_prog;
  bintang;
  writeln('(1) Menghitung Deret');
  writeln('(2) Menghitung Luas Balok');
  writeln('(3) Mencetak Biangan Ganjil/Genap');
  writeln('(4) KELUAR');
  bintang;
  write (' Silahkan Masukkan Pilihan Menu Anda [1/2/3/4] :  ');readln(pil);
  bintang;
  clrscr;

  case pil of
  1 : begin
     writeln ('Program Mencetak Deret');
     bintang;
     write('Masukkan Jumlah Deret : ');readln(n1);
     writeln;
     Deret(n1);
     bintang;
  end;
  2 : begin
    writeln('Program Menghitung Luas Balok');
    bintang;
    write('Masukkan Panjang Balok : ');readln(n1);
    write('Masukkan Lebar Balok   : ');readln(n2);
    write('Masukkan Tinggi Balok  : ');readln(n3);
    bintang;
    balok(n1,n2,n3,luas);
    bintang;
  end;
  3 : begin
    writeln('Program Pencetakan Bilangan');
    bintang;
    write('Masukkan Bilangan = ');readln(n1);
    Bilangan(n1);
    writeln;
    bintang;
   end;
  4..100 : begin
    writeln(' Menu Yang Anda Pilih Tidak Ada');
    bintang;
   end;
  end;
  writeln;
  write('Apakah Anda Ingin Menu Lain [Y/T] ? : ');readln(ulang);
  clrscr;
  end;
  writeln('Terima kasih telah menggunkaan program ini');
 end.