---

program Variant12_Task1;

var
  N, i: Integer;
  mark, sum1, sum2, avg1, avg2: Real;

begin
  Write('Введите количество студентов в каждой группе: ');
  Readln(N);

  sum1 := 0;
  sum2 := 0;

  Writeln('--- Ввод оценок для 1-й группы ---');
  for i := 1 to N do
  begin
    Write('Оценка ', i, '-го студента: ');
    Readln(mark);
    sum1 := sum1 + mark;
  end;

  Writeln('--- Ввод оценок для 2-й группы ---');
  for i := 1 to N do
  begin
    Write('Оценка ', i, '-го студента: ');
    Readln(mark);
    sum2 := sum2 + mark;
  end;

  avg1 := sum1 / N;
  avg2 := sum2 / N;

  Writeln('Средняя оценка 1-й группы: ', avg1:0:2);
  Writeln('Средняя оценка 2-й группы: ', avg2:0:2);

  Readln;
end.