Program Runtunan

Uses crt;

Var baju,buku,disk,baso,krupuk,teh_botol,ongkos : longint;
    diskon                                      : real;

Begin
Clrscr;

baju:= 85000;
buku:= 27000;
disk:= 17000;
baso:= 4000;
krupuk:= 750;
ongkos:= 1000;
teh_botol:=1500;
diskon:= 8/100;

writeln ('Hasil Daftar Belanja : ');
writeln;
writeln ('Baju           : Rp. ',baju);
writeln ('Buku           : Rp. ',buku);
writeln ('Diskete        : Rp. ',disk);
writeln ('_______________________________');
writeln ('Jumlah         : Rp. ',baju+buku+disk);
writeln ('Discount 8%    : Rp. ',diskon *(baju+buku+disk):4:2);

writeln ('_______________________________');
writeln ('Jumlah         : Rp. ',baju+buku+disk-(diskon*(baju+buku+disk)):4:2);
writeln ('Baso           : Rp. ',baso);
writeln ('Krupuk         : Rp. ',krupuk);
writeln ('Teh botol      : Rp. ',teh_botol);
writeln ('Ongkos         : Rp. ',2*ongkos);
writeln ('================================');
writeln ('Total          : Rp. ',(baju+buku+disk) - (diskon * (baju+buku+disk))
 + (baso+krupuk+teh_botol+ (2*1000)):4:2);
readln;