Kalkulator Sederhana

program Kalkulator_Sederhana;
uses wincrt;
var
operator: char;
angka_1,angka_2,hasil:real;
procedure PERKALIAN;
begin
hasil:=angka_1*angka_2
end;
procedure PEMBAGIAN;
begin
hasil:=angka_1/angka_2
end;
procedure PENJUMLAHAN;
begin
hasil:=angka_1+angka_2
end;
procedure PENGURANGAN;
begin
hasil:=angka_1-angka_2
end;
procedure MASUKAN;
begin
writeIn;
write('Masukkan angka_1            : ');readln(angka_1);
write('Masukkan operator (*,/,+,-) : ');readln(operator);
write('Masukkan angka_1            : ');readln(angka_2);writeln;
end;
begin
MASUKAN;
case operator of
'*': PERKALIAN;
'/': PEMBAGIAN;
'+': PENJUMLAHAN;
'-': PENGURANGAN;
end;
writeln('Maka hasilnya adalah        : ',hasil:2:2);
begin
end;
end.