Pascal Bonus Potongan Penjualan

program bonus_penjualan;
uses wincrt;
var
   Total_Penjualan    :longint;
   bonus                    :real;
begin
clrscr;
       write('Total_Penjualan = ');readln(Total_Penjualan);
       if(Total_Penjualan > 100000000) then
         BONUS := 0.1 * Total_Penjualan
       else
         BONUS := 0.07 * Total_Penjualan ;
       writeln('BONUS = ',BONUS:2:0);
readln;  
end.