Вывести на экран turbo pascal для заданного натурального числа n 1)найти сумму всех делителей, кратных хотя бы одному из целых чисел c или d 2)найти среднее арифметическое всех делителей

1. for i := 2 to n div 2 do if (n mod i = 0) and ((n mod c = 0) or (n mod d = 0)) then s := s + i;
2. for i := 2 to n div 2 do if (n mod i = 0) then begin s := s + i; inc(c); end;
writeln( 'Среднее: ', s / c );