Помогите в паскале пожалуйста :)

 var 
a,r,p,c : integer;
 begin 
readln (a); 
write (a,'(3) = '); 
p := 1; 
 r := 0;   
While a > 0 do   
begin   
 c := a mod 10;   
a := a div 10;   
 r := r + c * p;   
p := p * 3;   
end;    
writeln
(r,'(10)'); 
end.