Program Foto Copy Menggunakan Pascal

Postingan kali ini ialah merupakan tugas Quis Online saya DI Mesran [dot] Net, Tapi tak apa lah berbagi ilmu lagi di sini.
Ok objek :
Jumlah Lembar nya
Harga Perlembar nya : 90-100
Discount : 15% setelah pembelian di atas 500000
Bahasa Pemograman : Pascal
Tapi disini saya menggunakan Program Pascal windows, Hanya sedikit perubahan nya Uses Crt Menjadi Uses Wincrt :)

uses wincrt;
Var
tipe:char;
jumlah, hpl: real;
discount, bayar, total: real;
begin
     clrscr;
     Writeln('PROGRAM INPUT HARGA FOTO COPY');
     Writeln('-----------------------------');
     write(' Jumlah Lembar  = ');readln(jumlah);
     write(' Harga Per Lembar = ');readln(hpl);
     total:= jumlah*hpl;
     writeln('-----------------------------');
     writeln(' Total Harga  :  ',total:9:2);
     if (total >=500000) then
     discount:=15/100*total;
     writeln(' Discount     :  ',discount:9:2);
     bayar:= total-discount;
     writeln('-----------------------------');
     writeln(' Pembayaran : ', bayar:9:2);

     end.

Screen Shot Hasil :

Semoga Bermanfaat :) dan apa salah nya mencoba