program Homework;

var
num, digit, sum, countPairs, prevDigit: integer;

begin
num := 1262132136;
sum := 0;
countPairs := 0;
prevDigit := -1;

while num > 0 do
begin
digit := num mod 10;
sum := sum + digit;

if digit = prevDigit then
countPairs := countPairs + 1;
prevDigit := digit;
num := num div 10;

end;

writeln('Сумма всех цифр в числе: ', sum);
writeln('Количество одинаковых пар цифр в числе: ', countPairs);
end.