NotaRestoran

program NotaRestoran;

const
  JumlahMakanan = 5;

type
  Makanan = record
    Nama: string;
    Harga: integer;
    Jumlah: integer;
  end;

var
  NamaRestoran, AlamatRestoran, NamaPembeli: string;
  DaftarMakanan: array[1..JumlahMakanan] of Makanan;
  Total, Pembayaran, Kembalian: integer;
  i: integer;

begin
  // Mengisi data restoran
  NamaRestoran := 'Warung Makan 89';
  AlamatRestoran := 'Jl. Siliwangi 1, no.113, Bandung';

  // Mengisi data makanan
  DaftarMakanan[1].Nama := 'Sate Ayam';
  DaftarMakanan[1].Harga := 15000;
  DaftarMakanan[1].Jumlah := 2;

  DaftarMakanan[2].Nama := 'Soto Mie';
  DaftarMakanan[2].Harga := 18000;
  DaftarMakanan[2].Jumlah := 3;

  DaftarMakanan[3].Nama := 'Nasi Putih';
  DaftarMakanan[3].Harga := 5000;
  DaftarMakanan[3].Jumlah := 5;

  DaftarMakanan[4].Nama := 'Es Teh Manis';
  DaftarMakanan[4].Harga := 7000;
  DaftarMakanan[4].Jumlah := 2;

  DaftarMakanan[5].Nama := 'Es Jeruk';
  DaftarMakanan[5].Harga := 10000;
  DaftarMakanan[5].Jumlah := 3;

  // Mengisi data pembeli
  NamaPembeli := 'John Doe';

  // Menghitung total pembelian
  Total := 0;
  for i := 1 to JumlahMakanan do
    Total := Total + (DaftarMakanan[i].Harga * DaftarMakanan[i].Jumlah);

  // Memasukkan data pembayaran
  Pembayaran := 200000;
  Kembalian := Pembayaran - Total;

  // Menampilkan nota
  writeln(NamaRestoran);
  writeln(AlamatRestoran);
  writeln('==================================================================');
  writeln('Nama Pembeli : ', NamaPembeli);
  writeln('No. Nama Makanan');

  for i := 1 to JumlahMakanan do
    writeln(i, '. ', DaftarMakanan[i].Nama);

  writeln('Banyaknya Harga');

  for i := 1 to JumlahMakanan do
    writeln(DaftarMakanan[i].Jumlah, ' ', DaftarMakanan[i].Harga * DaftarMakanan[i].Jumlah);

  writeln('Jumlah');

  for i := 1 to JumlahMakanan do
    writeln(DaftarMakanan[i].Harga * DaftarMakanan[i].Jumlah);

  writeln('Total : ', Total);
  writeln('Pembayaran : ', Pembayaran);
  writeln('Kembalian : ', Kembalian);
  writeln('==================================================================');
end.