program kalkulator sederhana (TPW)

program kalkulatorsederhana;
uses wincrt;
var
   angka1:integer;
   angka2:integer;
   operator:char;
   hasil:real;
begin
     write('masukan angka pertama:');readln(angka1);
     write('masukan angka kedua:');readln(angka2);
     write('masukan operator:');readln(operator);
     case operator of
     '+' :hasil:=angka1+angka2;
     '-' :hasil:=angka1-angka2;
     '*' :hasil:=angka1*angka2;
     '/' :hasil:=angka1/angka2;
     end;
     write('jadi,hasil operasi adalah:',hasil:0:2);
     readln;
     end.