var a, R : integer;
Function F(x : integer) : integer;
begin
if x<= 0 then F:=0
else F:=x+ F(x-2);
end;

begin
a:=8;
R:=F(a);
write(R);
end.

В паскале ответ 20, как он получается? объясните поподробнее

На нерастяжимой нити висит шарик массой 100 г, имеющий заряд 20 мкКл. Как необходимо зарядить второй шарик, который подносят снизу к первому шарику на расстояние 30 см, чтобы сила натяжения: уменьшилась вдвое; рассмотреть случай невесомости; увеличилась в 4 раза?

1.найди и запиши два числа разность которых равна 20,60,80

2. найди и запиши два числа сумма которых равна 30,88,90

Помогите решить!!!!!Аквариум в форме прямоугольного параллелепипеда имеет размеры 16/25 м, 17/20 м и 5/4 м. Найдите его объем (в м 3).
И
Найдите объем аквариума, имеющего  форму куба с ребром 1 1/4 м.