Пройдите опираясь на условия​

Program Nooobodyyy;
uses crt;
var
  i,how:integer;
  ch,appr,sum:real;
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln(); writeln();
  writeln('Программа запрашивает N дробных чисел и находит их среднее арифметическое');
  sum:=0;
  write('Введите количество чисел: '); readln(how);
  for i:=1 to how do
    begin
      write('Введите ',i,'-e число: '); read(ch);
      sum:=sum+ch;
    end;
  appr:=sum/how;
  writeln('Cреднее арифметическое равно ',appr:8:2);
end.

Берём каждую цифру, (например просто, превращаем в строку (массив символов) и достаём эти цифры.), превращаем обратно в число и суммируем их. Получившееся значение превращаем опять в строку и узнаем его длину. Если она не равна двум, то оно не является двухзначным.

Объяснение:

a = 365

if len(str(int(str(a)[0]) + int(str(a)[1]) + int(str(a)[2])))==2:

print("является")

else:

print("не является")

(Я немного не понял что именно имеется ввиду под НА АЛГОРИТМИЧЕСКОМ ЯЗЫКЕ. Поэтому случайно написал это на Python. Может . Извините если нет)