Pascal/Turbo Pascal - AYUDA¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡

AYUDA¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡ MUY URGENTE¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡
ESTO VALE 50PTS. DE MI CLASE DE PROGRAMACION
SI ES POSIBLE DE SER RESPONDIDO HOY (19/03/07) MUCHISIMAS GRACIAS. YA QUE ES PARA MAÑANA (20/03/07).

ESCRIBA UN PROGRAMA EN PASCAL QUE PIDA TRES NUMEROS.
QUE LOS ANALICE Y QUE LUEGO DE ANALIZARLOS DIGA CUAL ES EL NUMERO MAYOR EL NUMERO INTERMEDIO Y EL NUMERO MENOR.

MUCHISIMAS GRACIAS¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡

Hola Christian! Pruebalo bien. Yo lo he probado varias veces y creo que está bien.

program ejercicio;
uses crt;
var
i,aux : integer;
num : array[1..3] of integer;
begin
clrscr; {limpio la pantalla}

{ingreso los números}
for i:=1 to 3 do
begin
write(1,'º número: ');
readln(num[i]);
end;

{verifico...}
if num[2] > num[1] then
begin
aux:=num[2];
num[2]:=num[1];
num[1]:=aux;
end;
if num[3] > num[2] then
begin
aux:=num[3];
num[3]:=num[2]; {"bajo" el segundo al tercer lugar}
if aux > num[1] then
begin
{"bajo" el primero al segundo lugar}
num[2]:=num[1];
num[1]:=aux;
end
else
num[2]:=aux;
end;

{por último imprimo}
clrscr; {limpio la pantalla}
writeln('El mayor número es: ',num[1]);
writeln('El número intermedio es: ',num[2]);
writeln('El menor número es: ',num[3]);
readln;
end.

------------------------------------------
Un abrazo y mucha suerte!