Pascal/Turbo Pascal - Como hago este algoritmo utilizando estructuras de seleccion

Una empresa extranjera de aviación fumiga cosechas contra una gran variedad de
plagas. Los valores cobrados a los granjeros dependen de lo que éste desea fumigar y
de cuántas hectáreas se fumigan, de acuerdo a la siguiente distribución:
Tipo 1: fumigación contra malas hierbas, $10 por hectárea.
Tipo 2: fumigación contra langostas, $15 hectárea.
Tipo 3: fumigación contra malas gusanos, $20 por hectárea.
Tipo 4: fumigación contra todo lo anterior, $30 por hectárea.
Si el área a fumigar es mayor de 1000 hectáreas, el granjero goza de un 5% de
descuento. Además, cualquier granjero cuya cuenta sobrepase los $3000 se le descuenta
un 10% sobre la cantidad que exceda dicho precio.
Cuando tengan que aplicar ambos conceptos, el correspondiente a la superficie se
considera primero.
Por cada pedido se tiene la siguiente información: nombre del granjero, tipo de
fumigación solicitada (1,2,3,4) y el número de hectáreas a fumigar.
Para cada solicitud el programa debe mostrar el nombre del granjero y valor total a
pagar.