Pascal/Turbo Pascal - Ayudaaaaaaaaaaaaaaaa....

Buenas tarde comunidad, quisiera ayuda con este ejercio.

Escribir un programa que vaya pidiendo al usuario valores enteros hasta que introduzca un valor negativo, después debe indicar los 3 valores mayores. Por ejemplo, si el usuario introduce los números: 1, 34, 45, 3, 2, 10, 9, 8, 78, 55, 3, 78, 43 y -5, el programa deber a mostrar: 78, 55, 45. Nótese que en el ejemplo el valor 78 aparece dos veces, pero solo se considera una vez entre los tres mayores. Es decir, los valores máximos repetidos únicamente se tienen en cuenta una vez. El orden en el que aparezcan los 3 valores máximos es irrelevante. Aunque en el ejemplo salgan ordenados de mayor a menor, al revés o sin orden también es correcto. Si el usuario introduce menos de tres valores el programa sólo mostrará como mayores los que se han introducido. Por ejemplo, si el usuario introduce: 3, 78, -5, la solución será: 3, 78.

Que forma tan grotesca de pedir ayudaaaaaaaaaaaaaa

Muestre que lleva, deje ver el algoritmo que planteó, antes de llevarlo a pascal

O que pretende que otros trabajen por usted, sea más serio y educado para pedir ayuda y usted sentarse de espectador a que otro haga lo que le toca hacer es a usted.

Esa falta de seriedad demuestra lo vago y holgazán que es

Hola te voy ayudando con esto.
Saludos.