DIZILERDE SIRALAMA1

PROGRAM siralama;
USES CRT;

VAR i,j,TEMP:INTEGER;
DIZI:ARRAY [0..4] OF INTEGER;

BEGIN
CLRSCR;

WRITELN('LUTFEN 5 ADET TAMSAYI 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:=1 TO 4 DO

IF (DIZI[1] < DIZI[i]) THEN
BEGIN
TEMP := DIZI[1];
DIZI[1] := DIZI[i];
DIZI[i] := TEMP;

END;

FOR i:=2 TO 4 DO

IF (DIZI[2] < DIZI[i]) THEN
BEGIN
TEMP := DIZI[2];
DIZI[2] := DIZI[i];
DIZI[i] := TEMP;

END;

FOR i:=3 TO 4 DO

IF (DIZI[3] < DIZI[i]) THEN
BEGIN
TEMP := DIZI[3];
DIZI[3] := DIZI[i];
DIZI[i] := TEMP;

END;

FOR i:=4 TO 4 DO

IF (DIZI[4] < DIZI[i]) THEN
BEGIN
TEMP := DIZI[4];
DIZI[4] := DIZI[i];
DIZI[i] := TEMP;

END;


FOR j:=0 TO 4 DO

WRITELN(DIZI[j]:5);

READLN;
END.