PASCAL (fungsi if)

Sedikit ilmu brooo
kali ini saya akn memberikan sedkit gambaran script pada pemrograman pascal.., dalam bentuk fungsi IF ELSE
gak usah lama2 langsung aja pantengin contoh script program bibawah ini,. CEKIBROOOT BROO

 PROGRAM COBA AJA;
USES CRT;
VAR
    NP     : STRING[15];
    HP,DS,BY : REAL;

BEGIN
    CLRSCR;
    WRITE ('NAMA PELANGGAN : ');READLN(NP);
    WRITE ('HARGA BELI     : ');READLN(HP);
    IF HP>=100000 THEN DS:=15/100*HP
    ELSE DS:=5/100*HP
    BY:=HP-DS;
    WRITELN('DISKON : ',DS:10:2);
    WRITELN('BAYAR  : ',BY:10:2);
    READLN;
END.