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.
Tidak ada komentar:
Posting Komentar