{* Задача367 *}

REM basic

' Определить, есть ли в заданном четырёхразрядном числе A цифры 3 и 4.


CLS : DEFINT A-Z
INPUT "Vvedite chislo : ", A
  For i = 1 To 4
   If A Mod 10 = 3 Then B = -1
   If A Mod 10 = 4 Then C = -1
   A = A  10
  Next
If B And C Then PRINT "Est" Else PRINT "Netu"
End