anak-anak suntalangu style

menghitung diskon bahsa pascal

program discount;
uses crt;
var harga,diskon,total:real;
begin
     clrscr;
     write('masukkan harga:');
     read(harga);
     if harga>=1000000 then
      begin
          writeln('diskon 15%');
           diskon:=harga*15/100;
            total :=harga-diskon;
             writeln(total:2:2);
     end
     else
     if (harga<1000000) and (harga>500000) then
      begin
          writeln('diskon 10%');
           diskon:=harga*10/100;
            total:=harga-diskon;
             writeln(total:2:2);
     end
     else
     if (harga<500000) and (harga>100000) then
      begin
          writeln('diskon 5%');
           diskon:=harga*5/100;
            total:=harga-diskon;
             writeln(total:2:2)
     end
     else
     if (harga>100000) and (harga<50000) then
     begin
          writeln('diskon 5%');
          diskon:=harga*5/100;
          total:=harga-diskon;
          writeln(total:2:2);
     end
     else
     if harga<500000 then
     writeln('tidak dapat diskon');
     readln;
     readln;

end.

BELAJAR PASCAL

program diskon;
uses crt;
var a, b, c  : real;
begin
clrscr;
writeln (' Masukkan Harga: ');
readln (a);
if a >= 50000 then
begin
b:=50000*10/100;
c:=50000-b;
writeln ('Rp ', c:2:2);
end
else
if a = 50000 then
begin
b:=a*5/100;
c:=a-b;
writeln ('Rp ', c:2:2);
end
else
if a >= 10000 then
begin
b:=50000*5/100;
c:=50000-b;
writeln ('Rp ', c:2:2)
end
else
if a <= 10000 then
begin
writeln ('Tidak mendapat diskon');
end;
readln;
end.