Определить, если в числе цифры 3, 4 и 5- QBasic(Бейсик)

 PRINT TAB(36)"zadacha1"
 PRINT TAB(32)"есть ли цифры 3, 4 и 5?"
 PRINT "vvedite a"
 INPUT A
 IF A>9999 OR A<1000 THEN GOTO 10
 K=A MOD 10
 G=INT(A/10)
 Z=Y MOD 10
 E=INT (A/100)
 Y= E MOD 10
 X=INT(A/1000)
 IF X=5 OR Y=5 OR Z=5 OR K=5 OR X=4 OR Y=4 OR Z=4 OR K=4 OR X=3 OR Y=3 OR Z=3 OR K=3 THEN K$="v zadannom chisle ect cifri 3,4,5- pricitctv" ELSE K$="net cifr"
 LOCATE 20,1 : PRINT"Ответ: ";K$