Найти все делители натурального числа n. решить через процедуру и функцию в паскале, помогите плиз

program UKD;
var
P,S,R,c:real; a,b:integer;
begin
writeln('Введите a b');
read (a); read(b);
c := sqrt(a*a+b*b);
P := a+b+c;
S := 1/2*(a*b);
R := 1/2*sqrt(a*a+b*b);
writeln('P=',P,' S=',S,' R=',R);
end.

program UKD;
var
x,i,n:integer;
y:real;
begin
writeln('Vvedite x n');
read(x);
read(n);
for i:=1 to n do
begin
if(i mod 2<>0)then
y:=y+sqrt(sin(x)/i);
end;
write(y);
end.

Удалить из него все элементы, в записи которых есть цифра 5.
Вставить число k после всех элементов, кратных своему номеру (k вводится с клавиатуры).
Поменять местами первый положительный и последний отрицательный элементы.

числа 220 и 284). Напечатать все пары "дружественных" чисел, не превосходящих заданного натурального числа. (Определить функцию, вычисляющую сумму делителей числа.)сделать в C# (си шарп)Помогите пожалуйста)

0,если их несколько то номер крайней правой.

2) Дано натуральное число. Определить сумму m его последних цифр

3)Дано натуральное число. определить его максимальную цифру.

4) дано предложение. заменить в нем все вхождения под строку str1 на подстроку str2

5) последовательность чисел Фибоначчи образуется так: первый и второй член последовательности равен 1, каждый следующий равен сумме двух предыдущих(1,1,2,3,5,,8,12..) Дано натуральное число n>=3 : а) найти k-й член последовательности б)получить первые n членов последовательности в)для заданного n определить верно ли,что сумма первых n членов есть четное число

a) найти произведение цифр числа б) верно ли, что в данном числе нет данной цифры А (цифру А вводить с клавиатуры)
2. Найти все трехзначные числа, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3 делятся на 4, а при увеличении на 4 делятся на 5.
3.Из данного натурального числа удалить все цифры А (а вводятся с клавиатуры).

Написать программы в паскале и желательно блок-схему, но можно и без нее.
Помогите пожалуйста)

произвольного натурального числа).