Данные в таблице практически везде неверные, если свериться с астрономическими справочниками. Ну да не суть важно.
Во вложении - файл Microsoft Word-2003 с таблицей.
здесь так и написано, что надо создать изображение
Var N, N1, Sum, i: integer;
begin
readln(N, N1);
for i := N to N1 do Sum := Sum + i;
writeln(sum / (n1 - n + 1));
end.
В картинке, дальше делай вывод сам