Написать программу которая находит сумму и количество четных цифр числа n, заданного с клавиатуры

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём ИЗ "...\Отделы\Обмен\";

ПЕР
  число, сумма, количество, цифра: ЦЕЛ;

УКАЗ
  число := Приём.Число();
  количество := 0; сумма := 0;
  ПОКА число > 0 ВЫП
    цифра := число ОСТАТОК 10;
    ЕСЛИ ЧЕТ(цифра) ТО
      УВЕЛИЧИТЬ(сумма, цифра); УВЕЛИЧИТЬ(количество)
    КОН;
    число := число ДЕЛИТЬ 10
  КОН;
  Вывод.ЧЦел("^%d %d", количество, сумма, 0, 0)

КОН Задание.

var

 A, B, c, x, p1, p2 :double;

const

 PI = 3.1415926;

begin

 readln(A, B, c, x);

 if exp(c+power(x,0.2)) <> 0 then

   p2 := 32.7*power(A,3)*x/exp(c+power(x,0.2))

 else begin

   writeln('Деление на 0 во второй дроби');

   halt;

 end;

 

 if (abs(0.65 * A * PI * Power(x,3))<> 2*PI) then

   p1 := tan(0.65 * A * PI * Power(x,3))

 else begin

   writeln('Аргумент для тангенса неверен');

   halt;

 end;

 

 if (p1 < 0) then begin

   writeln('Отрицательное подкоренное выражение');

   halt;

 end

 else

   if(p1 = 0) then begin

     writeln('Деление на 0 в первой дроби');

     halt;

   end;

   

 writeln('Результат: ', (B * cos(x)*cos(x))/sqrt(p1)+p2);

end.

Объяснение:

Программы правда выводят не просто число, т.к. это не очень понятно получается, поэтому сначала выводится название того, что именно мы сосчитали.

Когда проверите работу программы, просто уберите текстовую часть вывода в конце, и тогда будет как в задаче- выводится только одно число.

Также, в последней программе можно сократить сообщение при отсутствии искомых чисел до просто "NO".

1) оканчивающиеся на 4 (минимальное):

цел ч,н,п,м=0

алг

нач

вывод "количество чисел в последовательности= "

ввод п

вывод "ввод последовательности натуральных чисел:", нс

нц для н от 1 до п

вывод "число ", н, " из ", п, " = "

ввод ч

если mod (ч, 10) = 4 то

если м=0 или м>ч то м := ч всё

всё

кц

вывод "минимальное число, оканчивающееся на четыре= ", м

кон

2) кратные 5 (среднее арифметическое):

цел ч,н=0,с=0,к=0

алг

нач

вывод "ввод последовательности натуральных чисел:", нс

нц

н := н+1

вывод "число №", н, " = "

ввод ч

если mod (ч, 5) = 0 и ч <> 0 то

с := с+ч

к := к+1

всё

кц при ч=0

если к=0 то

вывод "NO (нет чисел, кратных пяти)"

иначе

вывод "среднее арифметическое чисел кратных пяти= ", с/к

всё

кон