Помогите, пожалуйста Запросить двузначное число и определить является ли сумма его цифр...

Question

Помогите, пожалуйста
Запросить двузначное число и определить является ли сумма его цифр двузначным числом
в паскале

Answer 1

Var
n:integer;
begin
Read(n);
n:= n div 10 + n mod 10;
if n > 9 then Writeln('Сумма цифр - двузначное число')
  else Writeln('Сумма цифр - не двузначное число');
end.