Расписать полностью : начиная с program и заканчивая end. написать программу которая определяет количество четных цифр в заданном числе.

Приставка, предлог (не часть слова), суффикс, окончание, корень; Треугольник, отрезок, длина (не фигура), квадрат, круг; Дождь, снег, осадки (собирательное название всех остальных), иней, град; Запятая, точка, двоеточие, тире, союз (не знак препинания); Сложение, умножение, деление, слагаемое (не арифметическое действие), вычитание; Дуб, дерево (собирательное название всех остальных), ольха, тополь, ясень; Секунда, час, год, вечер (не точный промежуток времени), неделя; Горький, горячий (не относится к вкусу), кислый, соленый, сладкий; Футбол, волейбол, хоккей, плавание (не игровой вид спорта), баскетбол.

Program hockey;

uses
  crt;

type
  hk = record
    name: string[20];
    shyiba: record
      gol_per: integer;
      gol: integer;
      straf_time: integer
    end
  end;

var
  hokiyArray, hokiyArray01: array[1..100] of hk;
  i, n: integer;
  f: text;

begin
  Assign(f, 'test.txt');
  Rewrite(f);
  Writeln('ДИНАМО ');
  Write('Введите количество нападающих : '); Readln(n);
  for i := 1 to n do
  begin
    Writeln('');
    Writeln(' Введите данные ', i, 'нападающего');
    Write(' Введите имя : '); Readln(hokiyArray[i].name);
    Writeln('');
    Writeln;
    Write(' Количество заброшеніх шайб : ');
    Readln(hokiyArray[i].shyiba.gol_per);
    Write('Количество голевіх передач ');
    Readln(hokiyArray[i].shyiba.gol);
    Write(' Количество штрафного времени ');
    Readln(hokiyArray[i].shyiba.straf_time);
    Writeln
  end;
  Writeln;
  for i := 1 to n do
  begin
    with hokiyArray[i] do
      Writeln(f, 'ДИНАМО', name, ' ', shyiba.gol_per, ' ', shyiba.gol,
        ' ', shyiba.straf_time);
  end;
  Close(f);
 
  Assign(f, 'test01.txt');
  Rewrite(f);
  Writeln('СПАРТАК ');
  Write('Введите количество нападающих : '); Readln(n);
  for i := 1 to n do
  begin
    Writeln('');
    Writeln(' Введите данные ', i, 'нападающего');
    Write(' Введите имя : '); Readln(hokiyArray01[i].name);
    Writeln('');
    Writeln;
    Write(' Количество заброшеніх шайб : ');
    Readln(hokiyArray01[i].shyiba.gol_per);
    Write('Количество голевіх передач ');
    Readln(hokiyArray01[i].shyiba.gol);
    Write(' Количество штрафного времени ');
    Readln(hokiyArray01[i].shyiba.straf_time);
    Writeln
  end;
  Writeln;
  for i := 1 to n do
  begin
    with hokiyArray01[i] do
      Writeln(f, 'СПАРТАК', name, ' ', shyiba.gol_per, ' ', shyiba.gol,
        ' ', shyiba.straf_time);
  end;
  Close(f)
 
end.