15 EKIM DENEME5

PROGRAM deneme5;
VAR sayi1, sayi2, sayi3, sayi4, sayi5: INTEGER;
enBuyuk: 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;

WRITELN('Girmis oldugubuz sayilardan en buyugu=', enBuyuk:5:2);


READLN;
END.