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

Filtrado por el usuario: David Amador T.
<<>>
Filtrado por el usuario 'David Amador T.' (Eliminar fitro)
 
Vista: