Напишите, что печатает следующая программа:​

Объяснение:

я думаю правильно)

1)Редактирует, измеряет, сращивает и масштабирует геометрические фигуры;

Создает и делит 3D-модели на отделы для возможности и дальнейшей обработки внутренних деталей;

Применяет готовые тексты к моделям;

Добавляет к своей модели личные готовые компоненты: деревья, машины, окна или двери, и даже людей;

Ретуширует, смягчает черты лица;

Моделирует тени от объекта в реальном времени с любой точки земли;

Имитирует размещения видеокамер;

Осуществляет веб-экскурсий;

Создает некие экскурсии-презентации;

Экспортирует графические двухмерные графические файлы, следующих форматов JPG, PNG, TIF, TGA, BMP в 3D-моделей 0,3 DS, DDF, DWG, DXF, СКП;

Экспортирует двухмерные изображения своих моделей в формат JPG, BMP, PNG, TIF;

Печатает рисунок модели;

Обрабатывает дополнительные приложения, которые используют язык Ruby.

2) Главное меню → Окно → Параметры → Комбинации клавиш → кнопка Импорт. Здесь же кнопкой Экспорт можно сохранить свои назначенные клавиши или отменить все назначения кнопкой "Сброс".

1. Надо добавить точку в последней строке программы. Иначе работать не будет.
2. Меняется всего одна строка в программе:

program pr2;

type
  student = record {объявление нового типа данных student}
    LastName: string; {фамилия студента}
    bal: array [1..5] of integer; {массив для 5-ти оценок}
    average: real {средний студента}
  end;

var
  pupil: array [1..100] of student; {массив pupil (максимум из 100 элементов) типа student}
  n, i, j, s: integer;{переменные целого типа}

begin
  write('Введите количество студентов: ');
  readln(n);
  for i := 1 to n do
  begin{запрос данных по n студентам}
    with pupil[i] do
    begin
      Write('Введите фамилию студента №', i, ': '); {запрос фамилии студента под номером i}
      Readln(LastName);
      s := 0; {целочисленная переменная для определения суммы студента}
      for j := 1 to 5 do
      begin{цикл для обработки 5-ти оценок каждого студента}
        write('Введите оценку за экзамен №:', j, ': ' );
        readln(bal[j] );
        s := s + bal[j]; {суммирование 5-ти оценок студента}
      end;
      average := s / 5; {определение среднего значения и запись в переменную average}
    end;
  end;
  writeln;
  writeln( 'Студенты, имеющие средний больший или равный 4');
  for i := 1 to n do
  begin
    if pupil[i].average >= 4 then {если средний студента >=4}
    write(pupil[i].LastName,', ');
  end;
end.