Q BASIC PROGRAM TO FIND GREATEST AMONG THREE NUMBERS. SUB

DECLARE SUB GREAT(A,B,C)
CLS
INPUT "ENTER ANY 3 NUMBERS";A,B,C
CALL GREAT (A,B,C)
END

SUB GREAT(A,B,C)
IF A>B AND A>C THEN
PRINT "GREATEST NUMBER IS";A
ELSEIF B>A AND B>C THEN
PRINT "GREATEST NUMBER IS";B
ELSE
PRINT "GREATEST NUMBER IS";C
END IF
END SUB