Помогите вывести ** экран turbo pascal Для заданного натурального числа N 1)найти сумму...

Question

Помогите вывести на экран turbo pascal
Для заданного натурального числа N
1)найти сумму всех делителей, кратных хотя бы одному из целых чисел C или D
2)найти среднее арифметическое всех делителей

Answer 1

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 );