В 3 битах можно хранить максимум 8 различный цифр (2³), поэтому максимальное количество слов - 8.
var a,b,c,d,e: integer;
begin
write('Введите a=');
read(a);
b:=10;
c:= a+b;
writeln('Сумма равна ',c);
e:=0;
while c>0 do
begin
d:=c mod 10;
c:=c div 10;
e:=e+1;
end;
writeln('В числе ', e, ' цифр(-a/-ы)');
end.
Если я правильно понял суть задания
var n,m:inreger;
begin
readln(n);
m:=n+1;
writeln(m);
end.
Отсутствовали 30лет всего прилетело:21-22
У зеленых детей: 0