var lowerint, upperint, file, counter : int
var counter2, counter3 : int := 0
var line1, line2 : string

open : file, "Input.txt", get

for r : 1 .. 5
get : file, line1
get : file, line2, skip
lowerint := strint (line1)
upperint := strint (line2)
counter2 := 0

for x : lowerint .. upperint
counter := 0
counter3 := 0

for y : 1 .. length (intstr (x))
if intstr (x) (y) not= intstr (x) (length (intstr (x)) - y + 1)
then
exit
else
counter := counter + 1
end if
end for

if counter = length (intstr (x))
then

for z : 2 .. ceil (x / 2)
if x mod z = 0
then
counter3 := counter3 + 1
exit
end if
end for

if counter3 = 0
then
counter2 := counter2 + 1
end if
end if
end for

put counter2
end for

put Time.Elapsed