program QuanLyXangDau;

const
  MAX = 100; // Số lượng sản phẩm tối đa

type
  SanPham = record // Định nghĩa kiểu sản phẩm
    tenSP: string;
    giaSP, soLuong: real;
  end;

var
  danhSachSP: array[1..MAX] of SanPham; // Mảng danh sách sản phẩm
  n: integer; // Số lượng sản phẩm hiện có

// Thêm sản phẩm mới
procedure ThemSanPham(var danhSach: array of SanPham; var n: integer);
var
  ten: string;
  gia, sl: real;
begin
  write('Nhập tên sản phẩm: ');
  readln(ten);
  write('Nhập giá sản phẩm: ');
  readln(gia);
  write('Nhập số lượng sản phẩm: ');
  readln(sl);

  // Thêm sản phẩm vào danh sách
  n := n + 1;
  danhSach[n].tenSP := ten;
  danhSach[n].giaSP := gia;
  danhSach[n].soLuong := sl;

  writeln('Thêm sản phẩm thành công.');
end;

// Hiển thị danh sách sản phẩm
procedure HienThiDanhSach(danhSach: array of SanPham; n: integer);
var
  i: integer;
begin
  writeln('Danh sách sản phẩm:');
  for i := 1 to n do
  begin
    writeln('Sản phẩm ', i, ':');
    writeln('Tên: ', danhSach[i].tenSP);
    writeln('Giá: ', danhSach[i].giaSP:0:2);
    writeln('Số lượng: ', danhSach[i].soLuong:0:2);
    writeln;
  end;
end;

// Tính tổng giá trị sản phẩm trong danh sách
function TinhTongGiaTri(danhSach: array of SanPham; n: integer): real;
var
  i: integer;
  tong: real;
begin
  tong := 0;
  for i := 1 to n do
  begin
    tong := tong + danhSach[i].giaSP * danhSach[i].soLuong;
  end;
  TinhTongGiaTri := tong;
end;

// Chương trình chính
begin
  n := 0;

  // Thêm sản phẩm mẫu
  n := n + 1;
  danhSachSP[n].tenSP := 'Xăng RON 95';
  danhSachSP[n].giaSP := 27000;
  danhSachSP[n].soLuong := 100;

  // Menu chức năng
  writeln('----QUẢN LÝ XĂNG DẦU----');
  writeln('1. Thêm sản phẩm mới');
  writeln('2. Hiển thị danh sách sản phẩm');
  writeln('3. Tính tổng giá trị sản phẩm');
  writeln('4. Thoát chương trình');
  writeln;

  // Vòng lặp chính
 


Ủng hộ kênh yt của mik! 
https://www.youtube.com/channel/UCr4o-s_IeoVYh6CIZAd83fA