Program pascal

CONTOH PROGRAM DISKON


PROGRAM DIS;
USES CRT;
VAR
DI:REAL;
TOTAL,H:REAL;
DISK:REAL;
BEGIN
WRITELN('MENGHITUNG DISKON') ;
WRITE('MASUKAN HARGA:');READLN(H);
IF H <=10000000000000000000000 THEN
DI:=15/100
 ELSE
 DI:=0;
 TOTAL:=H-(H*DI);
 DISK:=H*DI;
 WRITELN('TOTAL:',TOTAL:5:2);
 WRITELN('DISKON:',DISK:5:2) ;
 READLN;
 END.