Які функції можна обчислювати в проміжних підсумках​

№1
r = 187,5
a = 9
d = 63

№2
var a,b,c,d,e,f:real;
begin
writeln ('Введите оценки полученные в 5 опросах: ');
readln (a,b,c,d,e);
f:=(a+b+c+d+e)/5;
writeln ('Средняя оценка = ',f);
end.

№3
var dengi,a,b,c,d,ostatok:real;
begin
writeln ('Сколько у Вас денег?');
readln (dengi);
writeln ('Введите стоимость перчаток:');
readln (a);
writeln ('Введите стоимость портфеля:');
readln (b);
writeln ('Введите стоимость галстука:');
readln (d);
ostatok:=dengi-a-b-d;
if ostatok <0 then
writeln ('Вам не хватит денег на данную покупку, для совершения этой покупки Вам нужно ещё ', abs(ostatok), ' рублей')
else
writeln ('У Вас останется ',ostatok,' рублей');
end.

A = -5

B = 4

Объяснение:

Были (40;-2) переместились в (-11;121)

При этом четыре раза перемещались по X на 2 и по Y на B, это смещение составило X=4*2, Y=4*B

И пять раз по X на А и по Y на 5, это смещение составило X=5*A, Y=5*5

Итого смещение по X = 4*2 + 5*A,  по Y = 4*B + 5*5

И всё это еще повторялось 3 раза, то есть  по X = 3* (4*2 + 5*A),  по Y = 3* (4*B + 5*5)

В итоге получаем

40 + 3* (4*2 + 5*A) = -11

и

-2 + 3* (4*B + 5*5) = 121

Решаем элементарные уравнения:

40 + 3* (4*2 + 5*A) = -11

3* (8 + 5*A) = -51

8 + 5*A = -17

5*A = -25

A = -5

-2 + 3* (4*B + 5*5) = 121

3* (4*B + 25) = 123

4*B + 25 = 41

4B = 16

B = 4