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

Heeelp me...

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

Var n,s:integer;
begin
write(Введите двузначное число: );
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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.