Membuat Kalkulator

assalamualaikum wr.wb
pagi ini saya akan memberikan latihan pw maaf maksudnya PD  ( Pemprograman Dasar) :D
kali ini saya akan memberikan code untuk membuat kalkulator. jadi bisa untuk mengitung.. :)
silahkan simak dengan baik
1. pertama buka aplikasi Turbo Pascal versi windows kalo yang belum punya silahkan download dijongol maksudnya disini.
2. silahkan buka aplikasinya
3. kemuadian buka baru dengan cara klik file lalu New

4. silahkan copy paste dibawah ini ( cara paste di turbo pascal menggunakan edit lalu paste. tidak bisa menggunakan kompinasi ctrl+v)

uses wincrt;

var

a,c,d : integer;

operator, z:char;

begin

repeat

clrscr;

Writeln('PETUNJUK:');

Writeln('1. Masukkan angka pertama');

Writeln('2. Masukkan operator (+, -, /, *)');

Writeln('3. Masukkan Angka kedua');

Writeln ('-------------------------------');

Writeln('PERHITUNGAN: ');

Writeln ('------------------------------');

Write('Masukkan angka: '); readln(a);

write('Operator: '); readln(Operator);

write('Angka ke dua: '); readln(c);

case operator of

'+': d:=a + c;

'-': d:=a - c;

'/': d:=a div c;

'*': d:=a * c;

end;

writeln('Hasil: ',d);

writeln;

Write('Hitung lagi? (y/n) '); readln(z);

until Upcase(z) <> 'Y';

  end.

5. silahkan coba buka programnya dengan cara pilih run lalu run atau bisa menggunakan kompinasi keyboard ctrl+F9

6. jika berhasil anda bisa menyimpannya.

selesai..

selamat mencoba