15 EKIM DENEME 6

PROGRAM deneme5;
VAR sayi1, sayi2, sayi3, sayi4, sayi5: INTEGER;
enBuyuk, enKucuk : REAL;

BEGIN
WRITELN('Lutfen 5 adet tam sayi yaziniz!');
READLN(sayi1, sayi2, sayi3, sayi4, sayi5);

enBuyuk := sayi1;

IF (enBuyuk < sayi2) THEN
BEGIN
enBuyuk :=sayi2;
END;

IF (enBuyuk < sayi3) THEN
BEGIN
enBuyuk :=sayi3;
END;

IF (enBuyuk < sayi4) THEN
BEGIN
enBuyuk :=sayi4;
END;

IF (enBuyuk < sayi5) THEN
BEGIN
enBuyuk :=sayi5;
END;
enKucuk := sayi1;

IF (enKucuk > sayi2) THEN
BEGIN
enKucuk :=sayi2;
END;

IF (enKucuk > sayi3) THEN
BEGIN
enKucuk :=sayi3;
END;

IF (enKucuk > sayi4) THEN
BEGIN
enKucuk :=sayi4;
END;

IF (enKucuk > sayi5) THEN
BEGIN
enKucuk :=sayi5;
END;

WRITELN('Girmis oldugunuz sayilardan en buyugu=',
enBuyuk:5:2,' enkucugu=', enKucuk:5:1);


READLN;
END.