3. Perkalian, Pembagian, Pengurangan, Penjumlahan

program nilai_akhir;
uses crt;
var
   angka2,angka1,kali,tambah,kurang,pilih:integer;
   bagi:real;
   a,y:char;
begin
clrscr;
a:='y';
while (a='y')or(a='Y') do
begin
write('Masukkan angka pertama: ');
Readln(angka1);
write('masukkan angka kedua: ');
readln(angka2);
writeln('=========================');
writeln(': 1 untuk perkalian     : ');
writeln(': 2 untuk pembagian     : ');
writeln(': 3 untuk pengurangan   : ');
writeln(': 4 untuk penjumlahan   : ');
writeln('=========================');
writeln;
write('Anda pilih nomor: ');
readln(pilih);
Case pilih of
1:   begin
     kali:=angka1*angka2;
     writeln('Hasil: ',kali);
     end;
2:   Begin
     bagi:=angka1/angka2;
     writeln('hasil: ',bagi:2:2);
     end;
3:   begin
     kurang:=angka1-angka2;
     writeln('hasil: ',kurang);
     end;
4:   begin
     tambah:=angka1+angka2;
     writeln('hasil: ',tambah);
     end;
end;
writeln;
write('Apakah anda ingin mencoba lagi [y/n] ? ');
read(a);
writeln;
end;
readln;
end.