Рекурсия, Как правильно оформить Опции

[Guest]

Помогите оформиить данну задачу с помощью рекурсии(делится число на 3 или нет):

Uses
 Crt;
var
p:longint;
s:byte;
Procedure Input;
begin
 write('p= ');
 readln(p);
end;
Procedure Rass4et;
begin
 s:=0;
 repeat
  s:=s+p mod 10;
 until (p<>1);
end;
Procedure Output;
begin
 if (s mod 3)=0 then
  WriteLn('Yes')
   else('No');
  end;
Begin
ClrScr;
Input;
Rass4et;
Output;
ReadKey;
End.

[volvo]

Строки здесь вообще не при чем, прекрасно делается без них:

procedure Rass4et(p: integer);
begin
  if p = 0 then s := 0
  else begin
    rass4et(p div 10);
    s := s + (p mod 10);
  end;
end;