Pascal/Turbo Pascal - ¿Porqué da resultado negativo?

Filtrado por el usuario: Netbalron
<<>>
Filtrado por el usuario 'Netbalron' (Eliminar fitro)
 
Vista: