помогите решить задачу.
Задачка :
С помощью признака делимости на 9, проверьте кратно ли данное натуральное число 9.
Напишите рекурсивную процедуру.
var
b,a,sum:integer;
begin
read(a);
sum:=0;
while a >0 do
begin
b:= a mod 10;
sum:=sum+b;
a:= a div 10;
end;
if sum mod 9=0 then
write( sum,'Delitsya')
else
write( sum,'Ne Delitsya');
end.
procedure get_s(var s: integer; n: integer);
begin
if n = 0 then s := 0
else begin
get_s(s, n div 10);
s := s + (n mod 10);
end;
end;
var
a, sum: integer;
begin
readln(a);
get_s(sum, a);
if sum mod 9=0 then
write(sum,' Delitsya')
else
write(sum,' Ne Delitsya');
end.