Menghitung Discount Penjualan Pada Pascal

Menghitung Discount Penjualan Menggunkan pemograman pascal sebagai berikut
Object :
Discoutn penjualan di atas 2 juta






Uses Crt;
var
Jp:longint;
disc:real;
Begin
Clrscr;
Writeln("MENGHITUNG DISCOUNT');
Writeln('===================');
Write('Inputkan Nilai Penjualan :');
Readln(jp);
if jp>2000000then
Disc:=0.1*jp;
Writeln('Nilai Discount:',disc:8:2);
readln;

End.
Selamat mencoba ^_^