sıralama

program siralama;
uses crt;

var i,j,temp: integer;
dizi : array[0..4] of integer;

begin
clrscr;

writeln('lütfen 5 adet tam sayi yaziniz');

readln(dizi[0]);
readln(dizi[1]);
readln(dizi[2]);
readln(dizi[3]);
readln(dizi[4]);

for i := 1 to 4 do
if (dizi[0] < dizi [i]) then
begin
temp := dizi[0];
dizi[0] := dizi[i];
dizi[i] := temp;
end;


for i := 2 to 4 do
if (dizi[1] < dizi [i]) then
begin
temp := dizi[1];
dizi[1] := dizi[i];
dizi[i] := temp;
end;

for i := 3 to 4 do
if (dizi[2] < dizi [i]) then
begin
temp := dizi[2];
dizi[2] := dizi[i];
dizi[i] := temp;
end;

for i := 4 to 4 do
if (dizi[3] < dizi [i]) then
begin
temp := dizi[3];
dizi[3] := dizi[i];
dizi[i] := temp;
end;


for j := 0 to 4 do
writeln(dizi[j]:4);

end.