program QuanLyXangDau;

type
  TLoaiNhienLieu = (Benzin, DauDiesel, XangHoa);
  // Khai báo kiểu dữ liệu TLoaiNhienLieu
  
  TTh />    LoaiNhienLieu: TLoaiNhienLieu;
    GiaTri: real;
  end;
  // Khai báo kiểu dữ liệu TThongTinNhienLieu, lưu trữ thông tin về loại nhiên liệu và giá trị

var
  XangDau: array[TLoaiNhienLieu] of TThongTinNhienLieu;

procedure NhapThongTinNhienLieu(var ThongTin: TThongTinNhienLieu);
begin
  writeln('Nhap thong tin nhiên liệu:');
  write('Loai nhiên liệu (0: Benzin, 1: DauDiesel, 2: XangHoa): ');
  readln(ThongTin.LoaiNhienLieu);
  write('Gia tri: ');
  readln(ThongTin.GiaTri);
end;
// Hàm nhập thông tin về nhiên liệu từ người dùng

procedure HienThiThongTinNhienLieu(ThongTin: TThongTinNhienLieu);
begin
  writeln('Loai nhiên liệu: ', ThongTin.LoaiNhienLieu);
  writeln('Gia tri: ', ThongTin.GiaTri:2:2);
end;
// Hàm hiển thị thông tin về nhiên liệu

procedure NhapThongTinXangDau;
var
  Loai: TLoaiNhienLieu;
begin
  for Loai := Benzin to XangHoa do
  begin
    NhapThongTinNhienLieu(XangDau[Loai]);
  end;
end;
// Hàm nhập thông tin về giá trị xăng dầu cho từng loại

procedure HienThiThongTinXangDau;
var
  Loai: TLoaiNhienLieu;
begin
  writeln('Thong tin xang dau:');
  for Loai := Benzin to XangHoa do
  begin
    HienThiThongTinNhienLieu(XangDau[Loai]);
  end;
end;
// Hàm hiển thị thông tin về giá trị xăng dầu cho từng loại

procedure CapNhatGiaTriXangDau(Loai: TLoaiNhienLieu; GiaTri: real);
begin
  XangDau[Loai].GiaTri := GiaTri;
end;
// Hàm cập nhật giá trị xăng dầu cho từng loại

procedure Main;
var
  ChucNang: integer;
  Loai: TLoaiNhienLieu;
  GiaTri: real;
begin
  Nhap