PROGRAM Gasolinera;
USES CRT;
VAR A,B,c: INTEGER;
TEXTCOLOR (RED);
BEGIN
CLRSCR;
WRITELN (' Gasolinera I.C.I ');
writeln (' Bombas Valor Galones');
writeln ('1. Gasolina Super Q.32.00 2000');
writeln ('2. Gasolina Regular Q.25.00 3000');
writeln ('3. Gasolina Premiun Q.20.00 1000');
writeln ('4. Disel Q.40.00 4000');
writeln ('5. Gas Q.20.00 500');
writeln;
write ('Que opcion del menu desea:'); read (a);
writeln;
if a=1 then