Problemas con bucles do/while

[ecfisa]

Hola.

Esboza la idea en papel y lápiz tratando de seguir paso a paso lo que te solicitan,

PROCEDIMIENTO consumo 

VARIABLES
  litros, kilometros, velocidad, consumo : FLOTANTE

COMENZAR

  litros <- 50
  leer (kilometros, velocidad)

  si velocidad < 110 entonces
    consumo <- kilometros / 5 * 0.33
  si no 
    consumo <- kilometros / 5 * 0.50

  escribir ("Combustible consumido:", consumo)
  escribir ("Combustible restante :", litros - consumo)

FIN

luego no es tán dificil codificarlo en Pascal.

Saludos