pascal KALKULATOR SERBAGUNA

uses wincrt;
var a,b,c,d,i:integer;
     hasil:longint;
     hasil2:real;
    pil:1..7;
label mulai;
begin
 mulai:
  writeln('PROGRAM KALKULATOR');
  writeln('1.menghitung Volume,Luas Permukaan,Keliling Balok');
  writeln('2.menghitung Volume,Luas Permukaan,Keliling Kubus');
  writeln('3.Lingkaran');
  writeln('4.Persegi');
  writeln('5.Persegi Panjang');
  writeln('6.Menentukan Bilangan Prima');
  writeln('7.Selesai Kalkulator');

   write('Tentukan Pilihan Anda[1..7]--> ');
   readln(pil);
 case pil of

 1:begin
   write('Masukkan Panjang Balok--> ');
   readln(a);
   write('Masukkan Lebar Balok--> ');
   readln(b);
   write('Masukkan Tinggi Balok--> ');
   readln(c);
   hasil:=a*b*c;writeln('Volume Balok= ',hasil);
   hasil:=2*(a*b+b*c+c*a);writeln('Luas Permukaan Balok= ',hasil);
   hasil:=4*(a*b*c);writeln('Kelliling Balok= ',hasil);
  end;
 2:begin
   write('Masukkan Panjang Sisi Sebuah Kubus--> ');
   readln(a);
   hasil:=a*a*a;writeln('Volume Kubus= ',hasil);
   hasil:=6*a*a;writeln('Luas Permukaan Kubus= ',hasil);
   hasil:=12*a;writeln('Keliling Kubus= ',hasil);
  end;
 3:begin
   write('Masukkan Jari-Jari Lingkaran--> ');
   readln(a);
   hasil2:=3.14*a*a;writeln('Luas Lingkaran= ',hasil2:4:2);
   hasil2:=3.14*2*a;writeln('Keliling Lingkaran= ',hasil2:4:2);
  end;
 4:begin
   write('Masukkan sisi Sebuah Persegi--> ');
   readln(a);
   hasil:=a*a;writeln('Luas Persegi--> ',hasil);
   hasil:=4*a;writeln('Keliling Persegi--> ',hasil);
  end;
 5:begin
   write('Masukkan Panjang Persegi Panjang--> ');
   readln(a);
   write('Masukkan Lebar Persegi Panjang--> ');
   readln(b);
   hasil:=a*b;writeln('Luas Persegi Panjang--> ',hasil);
   hasil:=2*a*b;writeln('Keliling Persegi Panjang--> ',hasil);
  end;
 6:begin
   write('Masukkan Bilangan Prima yang akan dicek--> '); 
   readln(a);
     begin                          
      if (a=2)or(a=3)or(a=5)or(a=7)then
     begin
      writeln(a,' adalah bilangan prima');
    end
    else
    if (a mod 2=0)or(a mod 3=0)or(a mod 5=0)or(a mod 7=0) then
    begin                                      
     writeln(a,' bukan bilangan prima');
    end
    else
     writeln(a,' adalah bilangan prima');
    end;
   end;
7:begin
   writeln('Terima Kasih Telah Mencoba');
   halt;
  end;
 end;
 goto mulai;

end.