program diskon pada pascal

program disskon;
uses wincrt;
var
Harga : longint;
diskon, bayar : real;
begin
    clrscr;
    write('Inputkan Harga : ');read(Harga);
    if (Harga >= 100000) and (Harga < 500000) then
begin
    Diskon := Harga * (10/100);
    Bayar := Harga - Diskon;
    write('Bayar = ' , Bayar:0:0);
end
    else
    if (Harga >= 500000) then
begin
    Diskon := Harga * (20/100);
    Bayar := harga - Diskon;
    write('Bayar = ' , Bayar:0:0);
end
    else
    if Harga < 100000 then
    write('Bayar = ' , Harga);
readkey;
end.