Паскаль abc пользователь вводит с клавиатуры два числа. если сумма чисел больше, либо равна 100, то программа выводит «разряд выше десятков», если сумма меньше 100, но больше либо равна 10, то программа выводит «разряд выше единиц», если сумма чисел меньше 10, то программа выводит сумму этих двух введенных чисел.

Program chisla (input, output);
var a, b:integer;
begin
read (a, b);
if (a+b)>=100 then
writeln ('Разряд выше десятков');
if ((a+b)<100) and ((a+b)>=10) then
writeln ('Разряд выше единиц');
if (a+b)<10 then
writeln (a+b);
end.

1)Составить алгоритм «Вскипятить чайник» Начало 2. Открыть кран с водой. 3. Налить воду в чайник. 4. Закрыть кран. 5. Включить плиту. 6. Поставить чайник на огонь. 7. Ждать, пока вода закипит. 8. Выключить плиту. 9. Сказать «Чайник вскипел». 10. Конец В этом примере каждая команда имеет свой порядковый номер и записывается на отдельной строке. Этот алгоритм мы используем в нашей жизни или в быту. Такой алгоритм называют бытовым.
2)1. Начало 2. Выполнить первое действие: 81 : 9. 3. Запомнить результат первого действия. 4. Выполнить второе действие: 6 ∙ 4. 5.Сложить результаты первого и второго действий. 6. Записать ответ. 7. Конец

Если число произвольное, то оно может содержать произвольное количество цифр, большее нуля. Число считается натуральным, поэтому наложим на ввод ограничения: вводить нужно только цифры, а остальные знаки будут игнорироваться. В этом случае количество цифр в числе будет равно количеству введенных цифр. Число вводим, как символьную строку, а затем при подсчете цифр пропускаем все нецифровые символы.

const
  digits=['0','1','2','3','4','5','6','7','8','9'];
var
  s:string;
  i,k:integer;
begin
  Write('Введите произвольное натуральное число: ');
  Readln(s);
  k:=0;
  for i:=1 to Length(s) do
    if s[i] in digits then Inc(k);
  Writeln('Количество цифр в числе равно ',k)
end.

Тестовые решения:

Введите произвольное натуральное число: -43546543235.08754
Количество цифр в числе равно 16

Введите произвольное натуральное число: 96435034623
Количество цифр в числе равно 11

Введите произвольное натуральное число: И даже так: -43 323 453.657 4 посчитает!
Количество цифр в числе равно 12