Contoh Program IF ELSE dalam Pascal

Iseng2 bantuin kk ngerjain...jadi pengen nulis nih di blog tercinta yang sederhana ini...

program total_bayar;
uses wincrt;

const pot1=0.15;
const pot2=0.10;
var
   belanja,potongan,total_bayar:real;
begin
   write('masukan jumlah belanja=');readln(belanja);
   if belanja>500000 then
   begin
        potongan:=pot1*belanja;
   end
   else
   if belanja >100000 and 500000 then
        begin
        potongan:=pot2*belanja;
   end
   else
   if belanja<100000 then
   begin
   potongan:=0*belanja;
   end;
   total_bayar:=belanja-potongan;
   writeln('potongan=',potongan :6:2);
   writeln('total bayar=',total_bayar :6:2);
   end.