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

[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.