не совсем понятно, что вы хотите от программы.
я так понял, что вам нужно найти среднее значение всех элементов 3 списков, если это так, то обратите внимание вот на эти строки
my_list1 = a[i]
my_list2 = b[i]
my_list3 = c[i]
здесь сбита табуляция, однако я думаю, что вы явно прогоняете эти переменные по циклу и хотите работать с ними дальше в виде списка с переменными, в этом случае вы должны были объявить их до цикла и в самом цикле написать что то типа my_list1 += a[i], а получается, что весь цикл они просто переприсваиваются и по завершении просто равны последнему элементу a, b, c соответственно, уберите days = float(days) из цикла - занимает память и num никак не используется - ну это мелочи,
если бы вы написали что хотите от кода, я бы детальнее
var a, b, i:integer;
begin;
for i:=1 to 20 do begin;
read(a);
if (a mod 5 = 0) and (a mod 7 = 0) then b+=a;
end;
write(b);
end.Если нет, то замени "and" на "or".