---

program PriceAnalysis;

var
  n, i: integer;
  price, sum, max: real;
  average: real;

begin
  write('Введите количество цен: ');
  readln(n);

  if n <= 0 then
  begin
    writeln('Количество должно быть положительным числом.');
    exit;
  end;

  sum := 0;
  max := -1e308; // очень маленькое начальное значение

  for i := 1 to n do
  begin
    write('Введите цену ', i, ': ');
    readln(price);
    sum := sum + price;

    if price > max then
      max := price;
  end;

  average := sum / n;

  writeln('-------------------------');
  writeln('Сумма цен: ', sum:0:2);
  writeln('Среднее арифметическое: ', average:0:2);
  writeln('Максимальная цена: ', max:0:2);
end.