надо сделать в Excel, суда прислать скриншот таблицы, ещё в таблице должно быть минимум 6 человек записанно.​

Объяснение:

В большинстве случаев, когда человек получает информацию, он также её обрабатывает и сохраняет

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

читаю книгу я также обрабатываю полученную информацию; слушаю лекцию я также обрабатываю полученную информацию; решая кроссворд я обрабатываю информацию, что бы решить вопрос; решая домашнее задание я обрабатываю задания; играя в игру я обрабатываю информацию, что бы делать какие-то действия.

Читая книгу я также и запоминаю прочитанное; слушаю лекцию я также запоминаю услышанное; нюхая цветы я запоминаю их запах; кушая еду я запоминаю её вкус; когда я учу стих, я запоминаю информацию

Рассказывая стих я передаю слушателям информацию; объясняя задачу я передаю информацию слушателям; общаясь с кем то я передаю информацию; уча брата говорить я передаю ему информацию; участвуя в опросе я передаю информацию

Var
  a: array [1..6] of real;
  q, b, c: real;

begin
  for i: byte := 0 to 2 do
    readln(a[i * 2 + 1], a[i * 2 + 2]);
  q := sqrt(sqr(a[1] - a[3]) + sqr(a[2] - a[4]));
  b := sqrt(sqr(a[5] - a[3]) + sqr(a[6] - a[4]));
  c := sqrt(sqr(a[5] - a[1]) + sqr(a[6] - a[2]));
  if ((q + b > c) and (q + c > b) and (b + c > q)) then
  begin
    if (max(q, max(b, c)) = sqrt(sqr(min(q, min(b, c))) + sqr(min(q, max(b, c then 
      writeln('Прямоугольный!');
    writeln(String.Format('Геом. центр - ({0}; {1})', (a[1] + a[3] + a[5]) / 3, (a[2] + a[4] + a[6]) / 3));
  end
  else
    writeln('Нет такого ▲');
end.