Разветвляющийся алгоритм. Напишите программу, которая находит сумму цифр двузначного числа и определяет кратность этой суммы 3 или 5.

Heeelp me...

Буду благодарна!

var n,s:integer;beginwrite('Введите двузначное число: ');readln(n);s:=(n div 10)+(n mod 10);writeln('Сумма цифр ',s);if s mod 3=0 then writeln('Она кратна 3') else writeln('Она не кратна 3');if s mod 5=0 then writeln('Она кратна 5') else writeln('Она не кратна 5')end.