PROCESAMIENTO DE DATOS EJER_3

program ordenar;
uses
wincrt;
const
N=5;
type
A=array [1..N] of integer;
var
cambio,I,K,nu:integer;
num:A;
begin
clrscr;
for I:= 1 to N do
begin
write('VALOR' ,I,':');
readln(NUM[I]);
end;
for K:=1 to N-1 do
begin
for I:=K+1 to N do
begin
if NUM[K]>NUM[I] then
begin
cambio:=NUM[K];
NUM[K]:=NUM[I];
NUM[I]:=cambio
end;
end;
end;
for I:=1 to N do
writeln('pos ' , NUM[I]);
end.
end.