program pascalmenghitung harga

inilah adalah program pascal menghitung harga




program menghitung_harga;
uses crt;
var
total,diskon: real;

harga : real;
begin
textbackground(2);
textcolor(15);
   clrscr;
   writeln('prugram menghitung harga');
   write('masukan nama anda:');readln;
  write('masukan harga : ');readln(harga);
   if harga >=  2000000  then
   diskon:=15 / 100
   else
   diskon:=0;
   total:=harga-(harga*diskon) ;
   writeln('jadi totalnaya adalah=',total) ;
   readln;
   end.


semoga berman faat bagi pembaca.