source code tentang case of pada pascal

program case_of;

uses wincrt;

var pilihan ,g,m,w,h,s,ph: integer ;

sisia,sisib,tinggi,Luas: real ;

begin

     writeln('program case of');

     writeln;

     writeln('1. Gaya Berat');

     writeln('2. Luas Trapesium');

     writeln('3. tekanan hidrostatis');

     writeln;

     write('PILIHAN ANDA =');read(pilihan);

     case pilihan of

     1:

     begin

     write('masukkan massa =');readln(m);

     write('masukkan gravitasi bumi =');readln(g);

     w:=m*g;

     write('hasil gaya berat =',w);

     end;

     2:

     begin

    

     write('masukkan sisi a =');readln(sisia);

     write('masukkan sisi b =');readln(sisib);

     write('masukkan tinggi =');readln(tinggi);

     Luas:=sisia+sisib/2*tinggi ;

     write('hasil luas Trapesium =',Luas:0:2);

     end;

     3:

     begin

   

     write('masukkan jarak =');readln(h);

     write('masukkan berat =');readln(s);

     ph:=h*s;

     write('hasil tekanan hidrostatis =',ph);

     end;

    

     else

     writeln ('pilihan tidak tersedia');

     end;

   

     end.