15 EKIM DENEME 8

PROGRAM UYGULAMA7;
VAR A, B, C, EnBuyuk, enKucuk : INTEGER;

BEGIN
WRITELN('3 tam sayi yaziniz.');
READLN(A, B, C);

IF (A > B) THEN
BEGIN
IF (A > C) THEN
enBuyuk := A;
END
ELSE IF (B > C) THEN
enBuyuk := B
ELSE
enBuyuk := C;
WRITELN('yazdiginiz sayilardan enBuyuk olani=', enBuyuk :6);
IF (A < B) THEN
BEGIN
IF (A < C) THEN
enKucuk := A
ELSE
enKucuk := C;
END
ELSE IF (B < C) THEN
enKucuk := B
ELSE
enKucuk := C;
WRITELN('yazdiginiz sayilardan enKucuk olani=', enKucuk :6);
READLN;
END.