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