Взять пятилитровый бидон и набрать туда п литров и налить один литр в семилитровый
Как я понял, если при выборе 2-х любых шаров как минимум 1 из них чёрный, то мы не можем достать 2 белых шара => раз кол-во белых шаров - натуральное число и оно < 2, то оно равно 1 (возможно требуется написать про 0, но тогда утверждение "что из двух любых шаров хотя бы один черный" будет звучать как "<span>что из двух любых шаров хотя оба чёрные</span>", поэтому я его не пишу в ответ)
1,2,3,4,5,0 чего тут сложного
program raf105;
var abc,a,sum,count: integer;
begin
write('Введите число: ');
readln(abc);
count:= -1;
repeat
a:= abc mod 10;
sum:= sum+a;
count:= count+1;
abc:= abc div 10;
until a=0;
writeln('Сумма цифр: ',sum);
writeln('Количество цифр: ',count);
end.