var
Opcion:char
Begin
ClrSCr;
Writeln('Ingrese Opción: ');
Writeln('(a) Galones ');
Writeln('(b) Litros ');
Writeln('(...) ...todos los que quieras.. ');
Readln(opcion);
Case Opcion of
'a': ...Formula para calcular Galones...
'b': ...Formula para calcular Litros...
'...':...etc etc
else
Writeln('Error en ingreso de Opcion');