Помогите преобразовать алгоритм pascal -> php

[zxc]

Помогите преобразовать алгоритм pascal -> php

Сабж

program borlpasc;
var b,a,n,k:integer;
begin write('введите число n=');
      readln(n);
      k:=n;
      a:=k mod 10;
          repeat b:=k mod 10;
                 k:=k div 10
          until k div 10 =0;
      b:=k mod 10;

      writeln(a,n div 10 div 10 mod 10,n div 10 mod 10,b)
end.

 

[si]

домашние задания надо делать самому.

 

[zxc]

ну вот так..
сестренка попросила
ладно