Hi

Having trouble with this particular program;to enter a number and print all palindrome prime numbers below it. I've already typed n run it but any digit entered returns 2,3,5,7 only as output... Please help...

Program Prime_Palindrome;

var n,i: LongInt;

function IsPrime(V: LongInt): boolean; var Result: boolean; i: integer; begin {test if numnber is prime} result:=false; i:=2; while not(Result) and (i<V) do begin Result:=((V mod i)=0); i:=i+1; end; {while} IsPrime:=not(Result); end; {IsPrime}

function IsPalindrome(V: LongInt): boolean; var Result: Boolean; s,e: integer; t: string; begin result:=false; Str(v,t); {convert number to string} e:=Length(t); s:=1; Result:=True; while (s<>e) and (Result) do begin Result:=UpCase(t[s])=UpCase(t[e]); Inc(s); Dec(e); end; {while} IsPalendrome:=Result; end; {IsPalendrome}

begin WriteLn('please enter a number: '); ReadLn(n); i:=2; while i

Thks