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

// PascalABC.NET 3.0, сборка 1111
const
  alpha=['a'..'z'];
  digits=['0'..'9'];
var
  na,nd,i:integer;
  s:string;
begin
  na:=0; nd:=0;
  Write('Введите текст: '); Readln(s);
  for i:=1 to Length(s) do
    if s[i] in alpha then Inc(na)
    else
      if s[i] in digits then Inc(nd);
  if na>nd then Writeln('В тексте больше букв')
  else
    if na<nd then Writeln('В тексте больше цифр')
    else Writeln('В тексте букв и цифр поровну')
end.

Тестовое решение:
Введите текст: the equation 3.546x^2+4.18x-4.1=0
В тексте больше букв

Объяснение:

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

Книга — один из видов печатной продукции: непериодическое издание, состоящее из сброшюрованных или отдельных бумажных листов (страниц) или тетрадей, на которых нанесена типографским или рукописным текст

Ячейка — бокс, релейный шкаф. Ячейка — сейф в банке, сдаваемый клиентам внаём.

Диапазон ячеек – базовое структурное понятие электронной таблицы, определяющее блок ячеек (от правого верхнего до левого нижнего угла прямоугольного блока) или несколько прямоугольных блоков.

А еще можно без головной боли

// PascalABC.NET 3.0, сборка 1111
var
  a,b:BigInteger;
  sa,sb:string;
begin
  Write('Первое слагаемое: '); Readln(sa);
  if BigInteger.TryParse(sa,a)=False then Writeln('Это не целое число!')
  else begin
    Write('Второе слагаемое: '); Readln(sb);
    if BigInteger.TryParse(sb,b)=False then Writeln('Это не целое число!')
    else Writeln('Точный результат: ',a+b)
    end
end.

Тестовое решение:
Первое слагаемое: 5423323409523846095938445870434764308454095
Второе слагаемое: 7425543205430235436743455446541423534233
Точный результат: 5430748952729276331375189325881305731988328