case of

Program_matematika;

Uses crt;

Var x,a,b,jumlah:integer;

Begin

            Write(‘pilih 1-3=’); read(x);

            Case x of

1.begin

Write (‘inputkan nilai 1=’);read(a);

Write (‘inputkan nilai 2=’) read(b);

Jumlah:=a+b;

Write (‘jumlah:=’,jumlah);read(jumlah);

End;

2.begin

Write (‘inputkan nilai 1=’);read(a);

Write (‘inputkan nilai 2=’) read(b);

Jumlah:=a*b;

Write (‘jumlah:=’,jumlah);read(jumlah);

End;

3. write (‘anda salah pilih’);

End;

End.

                                  ~Semoga bermanfaat~