Синтаксис оператора неповного розгалуження: * if <логічний вираз>: блок команд
if<логічний вираз>
if <блок команд>
if <блок команд>: логічний вираз

Задача сводится к суммированию элементов массива V с целью нахождения их среднего арифметического. Конечно, такую задачу можно решать и без массива, поскольку нам придется все равно данные вводить с клавиатуры, но уж раз сказано, что "компоненты..." сделаем с массивом.

const
  n = 7;
  s = 'PVSCPSV';

var
  v: array[1..n] of double;
  i: integer;
  m: double;

begin
  Writeln('Вводите суммы ежедневного дохода по дням');
  m := 0;
  for i := 1 to n do
  begin
    Write(s[i], ': ');
    Readln(v[i]);
    m := m + v[i]
  end;
  Writeln('Средний доход за неделю составляет ', m / n:0:3)
end.

Тестовое решение:

Вводите суммы ежедневного дохода по дням
P: 142539
V: 363135
S: 217432
C: 57395
P: 294722
S: 115390
V: 184933
Средний доход за неделю составляет 196506.571

Думаю, имелось в виду не алгоритм, а программу, так что вот(если имелось в виду именно алгоритм, то напишите в лс):
#include <iostream>
#include <math.h>

using namespae std;

int main()
{
  double x1,y1,x2,y2;
  cin>>x1>>y1>>x2>>y2;
   double m1 = sqrt(x1*x1+y1*y1);
   double m2 = sqrt(x2*x2+y2*y2);
  if(m1 < m2) cout << "Ближе A" << endl;
  else cout << "Ближе B" << endl; /*с учетом иррациональности расстояния между точками почти в большинстве случаев, и неточности плавающих вычислений на компьютере можно пренебречь случаем, когда они равноудалены.*/
 char c; cin >> c;
 return 0;
}