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

Во вложении.

Объяснение:

Const
  nn=50; // максимальное количество учеников
var
  i,n,sm,sd,km,kd:integer;
  am,ad:real;
  var a:array[1..nn] of integer;
begin
  Write('Введите количество учеников: ');
  Read(n);
  Writeln('Введите рост учеников');
  sm:=0; sd:=0; km:=0; kd:=0;
  for i:=1 to n do
    begin
    Read(a[i]);
    if a[i]>0 then begin sd:=sd+a[i]; Inc(kd) end
    else begin sm:=sm-a[i]; Inc(km) end
    end;
  am:=sm/km; ad:=sd/kd;
  Write('Средний рост мальчиков (',am:0:1,') ');
  if am-ad<=10 then Write('не ');
  Writeln('превышает средний рост девочек (',ad:0:1,') ');
  Writeln('больше, чем на 10 см')
end.
   
Примерное решение

Введите количество учеников: 9
Введите рост учеников
-192 165 -174 179 -172 171 169 170 -170
Средний рост мальчиков (177.0) не превышает средний рост девочек (170.8)
больше, чем на 10 см

Сочетание Ctrl + --> это прыжок на начало следующего слова.
Сочетание Ctrl + Del это удалить часть слова от курсора до пробела.
Если курсор стоит перед 1 буквой - удалится всё слово.
1) Нажимаем 2 раза Ctrl + --> и попадаем на скобку "(".
2) Нажимаем 6 раз Ctrl + Del и удаляем: скобку "(", 4 слова в скобках,
и скобку ")".
3) Получили "словможно". Теперь нужно нажать пробел, чтобы разделить слова: "слов можно"
ответ: 3) 1 клавишу и 8 сочетаний.
Как вы за компьютером работаете, если MS Word не знаете?