Даны два слова А и Б.Проверить можно ли из букв,входящих в слово А,составить слово Б- QBasic(Бейсик)

  DEFINT A-Z
CLS
INPUT "skolko: ", A
PRINT STR$(A);
IF A \ 10 <> 1 THEN
  B = A MOD 10
 IF B = 1 THEN PRINT " vorona"
 IF B > 1 AND B < 5 THEN PRINT " voroni"
 IF B > 4 AND B < 10 OR B = 0 THEN PRINT " voron"
ELSE
 PRINT " voron"
END IF