Вот, модель, заменитель и моделирование
Var N, S : Word;
begin
Write('Введите 3-хзначное число: '); ReadLn(N);
S := 0; while N > 0 do begin S := S + N mod 10; N := N div 10; end;
Write('Сумма цифр = ', S); if (S > 9) and (S < 100) then WriteLn(' - двузначное число') else WriteLn(' - не двузначное число');
<span>end.</span>