Помогите вывести на экран 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 );