Function hezka(n, m: Integer): Integer;
Begin
     If m = 0 Then
         hezka := 1
     Else
         hezka := hezka(n, m-1) *n;
End;
Function isValidNum(n: Real): Boolean;
Var
   n1, n2: Integer;
   c, i: Integer;
   tmpB: Boolean;
Begin
     c := 0;
     n1 := Trunc(n);
     n  := Frack(n);
     While Frack(n) > 0 do
       begin
          n := n *10;
          c := c +1;
       end;
     n2 := Trunc(n);
     i := 1;
     tmpB := True;
     While (i <= c)  And tmpB do
       begin
          tmpB := ((n2 MOD 10) = (n1 DIV hezka(10,c-i)))
          n2 := n2 DIV 10;
          n1 := n1 MOD hezka(10,c-i);
          i := i +1;
       end;
     isValidNum := tmpB
End;