Quiz algoritma & pemrograman kls MI-1308 SEMESTER I

uses crt;var    jpenjualan:longint;    bonus;begin        clrscr;        write('jpenjualan:',);readln(jml);        if jpenjualan>500000 then          bonus:=10%        else if jpenjualan>1000000pertama then                bonus:=10%        else if jpenjualan>1000000selebihnya then                bonus:=15%        else                bonus:=10%              bsales=jpenjualan*bonus;                bonus:=10%              bsales=jpenjualan pertama*bonus;                bonus:=15%              bsales=jpenjualan selebihnya*bonus;              readln;end.