{* Задача385 *}

REM basic

' Определить количество и сами числа сверхпростых чисел в натуральном ряду, не превышающих 1000. Сверхпростым называется простое число, перевертыш которого тоже является простым числом.


For i = 2 To 1000
f = 0
For j = 2 To i - 1
If i Mod j = 0 Then f = 1
Next
If f = 0 Then
a = i
b = 0
Do
b = b * 10 + a Mod 10
a = a  10
Loop Until a = 0
f1 = 0
For k = 2 To b - 1
If b Mod k = 0 Then f1 = 1
Next
If f1 = 0 Then PRINT i;:n=n+1
End If
Next
PRINT
PRINT "kolichestvo=";n
End