Все 5-буквенные слова, составленные из букв з а к записаны в алфавитном порядке и пронумерованны​

1. Вот так сейчас решают подобные задачи:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.

Тестовое решение:
-0.00136006072493969

2. А вот так учат писать это же школьные учителя:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
  m:array[1..100] of real;
  i,k:integer;
  s:real;

begin
  s:=0;
  k:=0;
  for i:=1 to 100 do begin
    m[i]:=sin(i)*cos(i);
    if m[i]<>0 then begin
      s:=s+m[i];
      k:=k+1
      end
    end;
  Writeln(s/k)
end.

Тестовое решение:
-0.00136006072493969

import datetime

now = datetime.datetime.now()

now = str(now)

now = now.replace('-', '.')

now = now[:10]

now = now[5:]

a = [['ФАМИЛИЯ', 'ИМЯ', 'ОТЧЕСТВО', '1999.12.18'], ['ФАМИЛИЯ', 'ИМЯ', 'ОТЧЕСТВО', '1999.12.12'], ['ФАМИЛИЯ', 'ИМЯ', 'ОТЧЕСТВО', '1999.12.12'], ['ФАМИЛИЯ', 'ИМЯ', 'ОТЧЕСТВО', '1999.12.12'], ['ФАМИЛИЯ', 'ИМЯ', 'ОТЧЕСТВО', '1999.12.12'], ['ФАМИЛИЯ', 'ИМЯ', 'ОТЧЕСТВО', '1999.12.12'],['ФАМИЛИЯ', 'ИМЯ', 'ОТЧЕСТВО', '1999.12.12'], ['ФАМИЛИЯ', 'ИМЯ', 'ОТЧЕСТВО', '1999.12.12'], ['ФАМИЛИЯ', 'ИМЯ', 'ОТЧЕСТВО', '1999.12.12'], ['ФАМИЛИЯ', 'ИМЯ', 'ОТЧЕСТВО', '1999.12.12']]

b = []

for i in range(len(a)):

   item = a[i][3][5:]

   if item == now:

       b.append(a[i])

print('СЕГОДНЯ ДЕНЬ РОЖДЕНИЕ У:')

for j in range(len(b)):

   print(b[j][0], b[j][1], b[j][2])