Live As Technology

program recproject2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type penjualan=record
     kode:string;
     barang:string;
     harga:integer;
     jumlah:integer;
     total:integer;

end;
var
brg1,brg2,brg3:penjualan;
a,total1,total2,total3:integer;
begin
writeln('input data penjualan 1');
write('kode brg1     : ');readln(brg1.kode);
write('barang brg1   : ');readln(brg1.barang);
write('harga brg1    : ');readln(brg1.harga);
write('jumlah brg1   : ');readln(brg1.jumlah);
//write('total brg1    : ');readln(brg1.total);
writeln('*********************************************');
writeln('input data penjualan 2');
write('kode brg2     : ');readln(brg2.kode);
write('barang brg2   : ');readln(brg2.barang);
write('harga brg2    : ');readln(brg2.harga);
write('jumlah brg2   : ');readln(brg2.jumlah);
//write('total brg2    : ');readln(brg2.total);
writeln('*********************************************');
writeln('input data penjualan 3');
write('kode brg3     : ');readln(brg3.kode);
write('barang brg3   : ');readln(brg3.barang);
write('harga brg3    : ');readln(brg3.harga);
write('jumlah brg3   : ');readln(brg3.jumlah);
//write('total brg3    : ');readln(brg3.total);
total1:=brg1.harga*brg1.jumlah;
total2:=brg2.harga*brg2.jumlah;
total3:=brg3.harga*brg3.jumlah;
a:=total1+total2+total3;
writeln('********************************************************');
writeln('data penjualan');
writeln('********************************************************');
writeln('| kode     | barang   | harga    | Jumlah   | Total    |');
writeln('********************************************************');
writeln(brg1.kode:10,brg1.barang:11,brg1.harga:10,brg1.jumlah:11,total1:10);
writeln(brg2.kode:10,brg2.barang:11,brg2.harga:10,brg2.jumlah:11,total2:10);
writeln(brg3.kode:10,brg3.barang:11,brg3.harga:10,brg3.jumlah:11,total3:10);
writeln('HARGA TOTAL : ',a);
writeln('********************************************************');
readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.