PROGRAM CARI_BILANGAN_TERBESAR;
USES CRT;
VAR A,B,C:INTEGER;
BEGIN
CLRSCR;
WRITE('BILANGAN 1 : ');READLN(A);
WRITE('BILANGAN 2 : ');READLN(B);
WRITE('BILANGAN 3 : ');READLN(C);
IF (A=B) AND (B=C) AND (A=C) THEN WRITE('BILANGAN TERBESAR : ',A)
ELSE IF (A=B) AND (A>C) THEN WRITE(A)
ELSE IF (B=C) AND (B>A) THEN WRITE(B)
ELSE IF (A>B) AND (A>C) THEN WRITE(A)
ELSE IF (A>B) AND (A>C) THEN
WRITE(A)
ELSE IF (B>A) AND (B>C) THEN
WRITE(B)
ELSE
WRITE(C);
READLN;
END.
