Составить программу нахождения суммы чисел четырехзначного числа

program exs;

var a, i, sum : integer;

 

begin

sum: = 0;

    readln(a); {считывание числа}

    for i: = 1 to 4 do begin

      sum: =sum + (a mod 10); {находим остаток от деления на 10}

      a: =a div 10;                   {выкидываем найденную цифру из числа}

    end;

writeln(sum);

end.

Программа на python 3.5, вычисляющая то, что надо: digits = "3" + 115 * "6" + "3"   while "63" in digits or "664" in digits or "6665" in digits:     if "63" in digits:         digits = digits.replace("63", "4", 1)     elif "664" in digits:         digits = digits.replace("664", "65", 1)     elif "6665" in digits:         digits = digits.replace("6665", "63", 1)   print(digits) запускаем и получаем ответ  365.

Const   etalon = '8642'; var   n: real;   s: string;   i, k: integer; begin   writeln('введите число');   readln(n);   str(n,s);   i : = 1;   repeat       k : = pos(etalon[i], s);       if k = 0 then i : = i + 1   until (k < > 0) or (i > length(etalon));   if k > 0 then       writeln('наибольшая четная цифра в числе: ', s[k])   else       writeln('в числе не найдено четных цифр') end. тестовый прогон введите число 3.14159265359893 наибольшая четная цифра в числе: 8