Program Pascal Sales

PROGRAM PASCAL SALES

1.Kalimat Deskriptif
Program MenghitungKomisiSalesman;
uses crt;
var
   JumlahPenjualan,Komisi:real;
begin
     clrscr;
     Writeln('Program Menghitung Komisi Salesman');
     Write('Input Jumlah Penjualan:');readln(JumlahPenjualan);

     Komisi:=0.1*500000;
     if JumlahPenjualan >500000 then
        Komisi:=Komisi+((JumlahPenjualan-500000)*0.15);
     Writeln('Komisi=',Komisi:0:0);
     readln;
     end.

2. Tampilan Program