program pendapatan_laundry

program array1;
uses crt;
var
pendapatanharian,manager,marketing,buruh,buruhorg,pbarang,pbarangorg,listrik,air,minyak,sabunpewangi,media : array [1..100] of real;
gpbarang,gburuh,gajiber,gajibulan : real;
i, j, jumlahdata : integer;
begin
clrscr;
writeln ('+---------------------------------------------------+');
writeln ('|            PERHITUNGAN PENDAPATAN LAUNDRY         |');
writeln ('+---------------------------------------------------+');
write   (' banyak data yang dimasukkan: '); readln(jumlahdata);
for i := 1 to jumlahdata do
begin
writeln ('');
writeln (' PENDAPATAN BULAN ke-',i:1);
write   ('   Pendapatan Harian            : Rp.');readln(pendapatanharian[i]);
write   ('   Gaji Manager                 : Rp.');readln(manager[i]);
write   ('   Gaji Marketing               : Rp.');readln(marketing[i]);
write   ('   Gaji Buruh (1org)            : Rp.');readln(buruh[i]);
write   ('   Jumlah Buruh                 : ');readln(buruhorg[i]);
write   ('   Gaji Pengantar Barang (1org) : Rp.');readln(pbarang[i]);
write   ('   Jumlah Pengantar Barang      : ');readln(pbarangorg[i]);
write   ('   Minyak Kendaraan             : Rp.');readln(minyak[i]);
write   ('   Sabun Cuci & Pewangi         : Rp.');readln(sabunpewangi[i]);
write   ('   Biaya Listrik                : Rp.');readln(listrik[i]);
write   ('   Biaya Air                    : Rp.');readln(air[i]);
write   ('   Media Promosi                : Rp.');readln(media[i]);
writeln ('+---------------------------------------------------+');
end;

clrscr;
for i:=1 to jumlahdata do
begin
gburuh:=buruh[i]*buruhorg[i];
gpbarang:=pbarang[i]*pbarangorg[i];
gajibulan:=pendapatanharian[i]*30;
gajiber:=(gajibulan-(manager[i]+marketing[i]+gburuh+gpbarang+minyak[i]+sabunpewangi[i]+listrik[i]+air[i]+media[i]));
writeln ('');
writeln (' PENDAPATAN BULAN ke-',i:1);
writeln ('+------------------------------------------------+');
writeln ('   PENDAPATAN PERBULAN    : Rp.',gajibulan:0:0);
writeln ('+------------------------------------------------+');
writeln (' Potongan Gaji');
writeln ('   Gaji Manager           : Rp.',manager[i]:0:0);
writeln ('   Gaji Marketing         : Rp.',marketing[i]:0:0);
writeln ('   Gaji Buruh             : Rp.',gburuh:0:0);
writeln ('   Gaji Pengantar Barang  : Rp.',gpbarang:0:0);
writeln ('   Minyak Kendaraan       : Rp.',minyak[i]:0:0);
writeln ('   Sabun Cuci & Pewangi   : Rp.',sabunpewangi[i]:0:0);
writeln ('   Biaya Listrik          : Rp.',listrik[i]:0:0);
writeln ('   Biaya Air              : Rp.',air[i]:0:0);
writeln ('   Media Promosi          : Rp.',media[i]:0:0);
writeln ('+------------------------------------------------+');
writeln ('   PENDAPATAN BERSIH      : Rp.',gajiber:0:0);
writeln ('+------------------------------------------------+');
end;
readln;
end.