bahasa pemrograman pascal perbandingan harga

Program Perbandingan_Harga;
Var
        harga : integer;
Begin
        write('Input harga : ');
        readln(harga);
        if harga >=10000000 then write('mahal')
           else harga >=8000000 then write('sedang')
           else write ('murah');
End.