кружок программирования

<?php
// Задаём до какого числа рассматривать последовательность
 $a = 6 ;
 // Задаём начальное значение произведению 
 $r=1;
 // Пишем цикл где сами натуральные числа -это $i .
 for ($i =1 ; $i <=$a ; $i++)
 { 
echo $i , "<BR>" ;
 // "Просеиваем" числа $i на чётность 
 if ($i % 2 ==  0)
 {
 // Здесь пишем произведения 
	 $r=$i*$r ;
//	 echo $r ,"<BR>" ;
 }
 }
 // Выводим произведение натуральных чисел
 echo "Произведение чётных натуральных чисел равно ",$r;
?>

<?php
  $a = 6 ;
 $c =$a ;
 while ( $a % 2 ==0 )
 {
	 $a = $a/2 ;
 }
 if ($a==1)
 {
	 echo "Число ", $c , " степень числа 2" ;
 }
 else
 {
	 echo "Число ", $c , " е является степенью числа 2" ;
 }
 
?>

Эта программа не работает в free pascal

 
 
<?php

echo  "<BR>","Задача №38 : определить является ли число  палиндромом. 
Особенность задачи в том , что при количестве цифр числа, большем , чем
10 знаков , программа не работает - причина , электромагнитное воздействие нло ." ,"<BR>";
//Вводим число 
$a = 11111111111; 
echo "<BR>","Введенное вами число : ",$a,"<BR>" ;
$count=1;
// Определим число разрядов числа 
// Функция pow (10,$i) процесс возведения
// числа 10 в степень $i 
for ($i=1 ; $a/pow (10,$i)>=1 ; $i++)
	{
		$count++ ;
	}

Особенность задачи в том , что нам неизвестно заранее с каким разрядом число рассматривается .

 
<?php
// Введём число в строковом виде 
$a="123456789" ; 
// Преобразуем  строку $a в массив 
$arr = str_split ($a) ; 
print_r ($arr ) ;
 // Найдём "длину" массива 
 $c = count($arr); 
 echo "<BR>","Длина числа :",$c ,"<BR>";
 // Запишем цикл способный вывести на экран
 // наш счётчик $j пробежит значения от начального
 // элемента массива до конечного где
 for ($j=0 ; $j <= ($c-1) ;   $j++)
 {
	  echo $arr[$j] ;
	  if ($arr[$j] < $arr[$j+1])
	  {
		  echo "<" ;
	  }
	  else 
	  {
		  echo "---->[Уже пошла немонотонность--->]";
	  }
	 
 }

Теория задачи
Реализация задачи :

 
<?php

// Мы создали функцию вывода факториала числа $n 
	
	function F ($n)
	{
		$count=1;
		 
			for ($i=1 ; $i<=$n ; $i++)
				{
					$count=$count*$i;
				}
				  
				 return $count;
	}

	// Теперь выведем функцию числа сочетаний 
 $n=5;
 $k=2;
 $c=$n-$k;
 echo  F($n)/(F($k)*F($n-$k)) ;
 
 
 ?>