Cara membuat kalkulator sederhana dengan turbo pascal

Buat teman-teman yang ingin belajar dasar turbo pascal seperti membuat kalkulator, nah hari ini saya memberikan caranya untuk teman-teman semua,
pertama anda membuka turbo pascal yang telah anda instal di komputer anda masing-masing.

uses crt;
var
x,y,d:integer;
op:char;
begin
   clrscr;
   Writeln('Kalkulator Sederhana');
   writeln('====================');
   writeln('Masukan Angka Pertama : ');readln(x);
   writeln('Masukan Operator ('+','-','*','/');readln(op);
   Writeln('Masukan Angka Kedua : ');readln(y);
   writeln('====================');
   case op of
    '+':d:=x+y;
    '-':d:=x-y;
    '*':d:=x*y;
    '/':d:=x div y;
   end;
   Writeln('Hasil = ',d);
   readln;
end.

Semoga bermanfaat buat teman-teman semua, tolong tinggalkan komentar anda...........!
terima kasih