Latihan Pemrograman Turbo pascal

Program diskon_harga;

Uses wincrt;

Var diskon:real;

hargakotor,Netto: real;

Begin

write('Berapa harga kotornya: Rp');

readln(hargakotor);

write('Berapa diskonnya(%): ');

readln(diskon);netto:=hargakotor-diskon*hargakotor/100;

writeln('harga netto: Rp',netto:6:2);

readln;

End.