Определить равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа- QBasic(Бейсик)

CLS
INPUT "Chislo="; a
s=0: i=0: c=a
DO WHILE c>0
 s=s+c MOD 10
 c=c\10
 i=i+1
LOOP
IF i=3 THEN
 IF (a^2)=(s^3) THEN
  PRINT "Kvadrat zadannogo trehznachnogo chisla = kubu summi cifr etogo chisla"
 ELSE
  PRINT "Kvadrat zadannogo trehznachnogo chisla ne raven kubu summi cifr etogo chisla"
 END IF
ELSE 
 PRINT "Vvedennoye chislo ne trehznachnoye"
END IF