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

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.