Написать программу паскаль, прошу,вообще не шарю в программах,а так 2 ! «a»: ввести натуральное число и найти сумму его цифр. пример: введите натуральное число: 12345. сумма цифр 15. «b»: ввести натуральное число и определить, верно ли, что в его записи есть две одинаковые цифры, стоящие рядом. пример: введите натуральное число: 12342 нет. пример: введите натуральное число: 12245 да.

begin

  var s : = readstring('n =');

  s.aggregate(0, (sum, x)-> sum + x.todigit).println;

  var i : = 2;

  while (i < = s.length) and (s[i] < > s[i - 1]) do i += 1;

  print(i > s.length ? 'no' : 'yes')

end.

a)

var num, sum, i, temp: integer;

begin

print('number: ');

readln(num);

temp: = num;

i: =1;

while(temp < > 0) do

  begin

  temp: = temp div 10;

  if(temp =0) then break;

  i: = i+1;

  end;

temp: = i;

sum: =0;

for i: =0 to temp do

  begin

  sum: = sum + (num mod 10);

  num: = num div 10;

  end;

println('sum: ',sum);

end.

b)

var num, temp: integer;

    bool: boolean;    

begin

readln(num);

temp : = num mod 10;

num : = num div 10;

while(num< > 0) do

  begin

  if (temp = num mod 10)  

    then

    begin

    bool: =true;

    break;

    end;

  temp : = num mod 10;

  num : = num div 10;

  end;

if bool then write('yes') else write('no');

end.