Помогите написать код паскаль в Php? Код паскаля внизу

Запись числа 38110 в системе счисления с основанием N оканчивается на 3 и содержит 3 цифры. Укажите наибольшее возможное основание этой системы счисления N

PHP:

1. Program lexus_sj;
2. var a,b:array[1..100] of integer;
3.     n,m,d,i,j,k,l:integer;
4. begin
5. read(n);//для примера введите 129,381,115...
6. for j:=2 to 15 do
7. begin
8. i:=0;
9. d:=n;
10. while (d>=j) do
11. begin
12. i:=i+1;
13. m:=d mod j;
14. d:=d div j;
15. a:=m;
16. end;
17. a[i+1]:=d;
18. if (i+1=3)and(a[1]=3) then
19. begin
20. for k:=1 to 3 do
21. b[k]:=a[4-k];
22. l:=j;
23. end;
24. end;
25. if (l=0) then writeln('нет такой системы счисления') else
26. begin
27. for j:=1 to 3 do
28. begin
29. if b[j]=10 then write('A') else
30. if b[j]=11 then write('B') else
31. if b[j]=12 then write('C') else
32. if b[j]=13 then write('D') else
33. if b[j]=14 then write('E') else
34. if b[j]=15 then write('F') else
35. write(b[j]);
36. end;
37. writeln;
38. write('система счисления ', l);
39. end;
40. end.