Quiz Online flowchart

 

uses CRT;
Var
penjualan : longint ;
Bonus : real;
begin
 clrscr;
 Writeln('Bonus Sales');
 writeln('---------------------------');
 write('Jumlah Penjualan:');readln(Penjualan);
 if penjualan >500000 then bonus:=0.1*penjualan else
 if penjualan > 1000000 then bonus :=0.15*penjualan
 write('Bonus:,bonus')
    end;
 readln;
 end.