program Program_Perhitungan;
uses crt;
var
  bil1,bil2,pil,has:real;
begin
  clrscr;
  writeln('=======================================');
  writeln('        Program Perhitungan          ');
  writeln('=======================================');
  writeln;
  writeln('=====================');
  writeln(' Pilihan Perhitungan ');
  writeln('=====================');
  writeln('1. Pertambahan      ');
  writeln('2. Pengurangan      ');
  writeln('3. Perkalian        ');
  writeln('4. Pembagian        ');
  writeln('=====================');
  writeln;
  write('Masukkan bilangan pertama =');readln(bil1);
  write('Masukkan bilangan kedua  =');readln(bil2);
  write('Pilihan Perhitungan      =');readln(pil);
  if pil=1 then
  begin
  has:=bil1+bil2;
  writeln('Hasil  =',has:2:1);
  end
  else if pil=2 then
  begin
  has:=bil1-bil2;
  writeln('Hasil  =',has:2:1);
  end
  else if pil=3 then
  begin
  has:=bil1*bil2;
  writeln('Hasil  =',has:2:1);
  end
  else
  begin
  has:=bil1/bil2;
  writeln('Hasil  =',has:2:1);
  end;
writeln;
writeln('Terima Kasih Semoga Membantu');
writeln('<press any key to exit>');
readln;
end.