PROGRAM DISKON BAJU 1

Program Menghitung_diskon;
Uses crt;
var harga,diskon,harga_akhir:real;
begin
   write('masukan harga barang=');
   readln(harga);
   write('masukan prosentase diskon barang,skala 1-100=');
   readln(diskon);
   harga_akhir:=harga-(harga*diskon/100);
   writeln('harga barang setelah didiskon adalah=', harga_akhir);
   readln;
end.