Question

ЭТО ОЧЕНЬ ВАЖНО ДЛЯ МЕНЯ и сложно, завтра зачет и будут такие задачи, помогите мне, пожалуйста, совершенно не смыслю в этом!
ЗАДАЧИ К ЗАЧЕТУ ПО РАЗДЕЛУ: "ОСНОВЫ ПРОГРАММИРОВАНИЯ НА ПАСКАЛЕ"
1. Составьте программу для решения следующей задачи:
Найти длину окружности L=2*П(пи)*R и площадь круга S=П(пи)*Rв квадрате заданного радиуса R. В качестве значения П(пи) использовать 3,14.
2. Составить программу для решения задачи: Возраст Коли- Х лет, Миши- Y лет. Найти их средний возраст, а также определить, насколько отличается возраст каждого мальчика от среднего значения.
3. Составьте программу для решения следующей задачи: Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.
4. Составьте программу для решения следующей задачи: Даны три числа. Найти сумму двух наибольших из них.
5. Составить программу для решения следующей задачи: Напечатать все целые числа от А до В в "столбик".
6. Составить программу для нахождения суммы: S= 1+ 1/2+1/3+...1/N
7. Составить программу для решения следующей задачи: Все четные положительные элементы массива из 20 целых случайных чисел в интервале [-15, 25] уменьшить вдвое, все нечетные положительные увеличить на 2, а у всех остальных поменять знак.

Answer 1

Держи! Пять задач прикрепил. Остальные две никак. 

Answer 2

var
i, N: integer;
sum: real;

begin
write('Введите N: ');
readln(N);

for i := 1 to N do
sum := sum + 1/i;

writeln('Сумма: ',sum:0:2);
end.

Answer 3

7-ую отправил в ЛС :)