Дано натуральное двузначное число. Составить программу определения, является ли сумма его цифр двузначным числом. Если нет, то через сколько чисел встретиться первое двузначное число, удовлетворяющее этому условию.На паскале

Предыдущий
вопрос Следующий
вопрос

program CheckSumIsTwoDigitNumber;

var
number, sum: integer;

begin
write('Enter a two-digit number: ');
readln(number);

sum := (number div 10) + (number mod 10);

if (sum < 10) then
begin
writeln('The sum of digits is not a two-digit number.');

repeat
number := number + 1;
sum := (number div 10) + (number mod 10);
until (sum >= 10);
writeln('The first two-digit number with a sum of digits as a two-digit number is ', number);

end
else
writeln('The sum of digits is a two-digit number.');

end.