Pascal. Задача 1-11

В школе занятия по математике для трех классов ("а", "б", "в") проходят одновременно в трех кабинетах, для которых необходимо приобрести новые парты. За каждой партой может сидеть не больше двух учеников. Пользователь вводит три натуральных числа: количество учащихся в каждом из трех классов. Вывести  необходимое количество парт для трех кабинетов.

Например, для входных данных 21, 21, 20 результат должен быть 32

Решение

var
  n1, n2, n3 : integer;
begin
  write('Количество учеников класса "а" ? ');
  read(n1);
  write('Количество учеников класса "б" ? ');
  read(n2);
  write('Количество учеников класса "в" ? ');
  read(n3);
  // Необходимо считать требуемое количество парт для каждого класса отдельно
  n1 := n1 div 2 + n1 mod 2;
  n2 := n2 div 2 + n2 mod 2;
  n3 := n3 div 2 + n3 mod 2;
  writeln('Необходимое количество парт: ', n1 + n2 + n3 );
end.