Q BASIC PROGRAM :PERFECT SQUARE OR NOT.

Q BASIC PROGRAM TO CHECK WHETHER THE GIVEN NUMBER IS PERFECT SQUARE OR NOT. FUNCTION

DECLARE FUNCTION CHECK$(N)
CLS
INPUT "ENTER ANY NUMBER";N
PRINT CHECK$(N)
END

FUNCTION CHECK$(N)
A=SQR(N)
B=INT(A)
IF A=B THEN
C$="PERFECT SQUARE"
ELSE
C$="NOT PERFECT SQUARE"
END IF
CHECK$=C$
ENS FUNCTION