Menghitung Discount dengan Menggunakan Function dalam PASCAL

program menghitung_diskon;

uses

    wincrt;

var pembelian,diskon,pembayaran:real;

function caridiskon(beli:real):real;

var diskon:real;

begin

     if (beli>1000000) then

        begin

          diskon:=beli*0.15;

        end

     else if(beli>500000) then

            begin

                 diskon:=beli*0.1;

            end

         else if (pembelian>100000) then

                begin

                     diskon:=beli*0.05;

                end;

         caridiskon:=diskon;

end;

begin

     clrscr;

     write('masukkan jumlah pembelian:');readln(pembelian);

     diskon:=caridiskon(pembelian);

     pembayaran:=pembelian-diskon;

     writeln('jumlah diskon:',diskon:8:0);       

     writeln('pembayaran   :',pembayaran:8:0);

end.