, как заполнить 6ю колонку ,, доплата к зарплате в процентах"?

Сетевая паутина
Оплела весь белый свет.
Не пройти детишкам мимо.
Что же это?
интернет

like 5 0 dislike
Он знает всё и даже больше,
И к нам на поспешит.
Любой вопрос, пусть очень сложный,
Мгновенно с лёгкостью решит.
Плетёт свою он паутину,
Хотя, по сути, не паук.
Он видит всё. Вы догадались?
А, ну-ка, что это за друг?
интернет

like 2 0 dislike
Это будто паутина,
В ней найдёшь ты всё о всех:
О животных, о машинах,
Будет дождь сегодня, снег?
Всё про мир и о планете
Прочитаешь в...
интернете

like 4 0 dislike
Её называют всемирная сеть,
Чего в этой сети только нет!
Она всё расскажет и даже покажет.
Она называется как?...
интернет

like 2 0 dislike
Он всех нас объединяет,
Обо всём на свете знает,
Он кино тебе покажет,
Обо всём тебе расскажет.
интернет

like 4 0 dislike
В нём есть игры и соцсети,
Фильмы, почта, курс валют.
Есть все новости планеты,
В нём танцуют и поют.
интернет

like 8 0 dislike
Средство связи редким было,
А сейчас — у всех оно.
Вот уже беспроводное,
Раньше — оптоволокно.
интернет

Const
  n=7;

type
  V=array[1..n] of real;

var
  P:V;
  i,k:integer;
  a,b,c,d:real;

begin
  Writeln('Вводите длины сторон четырехугольника через пробел');
  for i:=1 to n do begin
    Write(i,': '); Read(a,b,c,d);
    P[i]:=a+b+c+d;
    end;
  k:=0;
  for i:=n-1 downto 1 do
    if P[i]=P[n] then k:=k+1;
  Writeln('Четырехугольников с периметром, как у последнего: ',k)
end.

Пример
Вводите длины сторон четырехугольника через пробел
1: 5 7 3 8
2: 3 7 3 6
3: 5 8 5 2
4: 6 8 4 1.9
5: 8 3 5 9
6: 7 3 7 2
7: 5 5 5 4
Четырехугольников с периметром, как у последнего: 2