Запишите на языке Паскаль программу, которая выводит (правильное) окончание слова ученик в зависимости от числительного.

СОставляем функцию Лагранжа
L=x1+4x2+x3-10x4-5x5 +a(x1-x2+x3+x4-4x5)+
+b(x1+x2+5x3+3x4-4x5)
и записываем систему из уравнений: приравниваем к нулю производные функции L, а еще два уравнения - это заданные условия.
Находим решение - это будет точка условного экстремума, проверяем ее на максимум.

зы Хотя, условие не совсем четко записано.
Если имеется в виду, что функция зависит от пяти переменных х1,х2,х3,х4,х5, то тогда задана линейная функция и линейные ограничения. Скорее всего, максимума не будет...

CLS
DIM n AS INTEGER
INPUT "Введите кол-во студентов:", n

DIM studentYearsOld(1 TO n) AS INTEGER
DIM studentName(1 TO n) AS STRING

FOR i = 1 TO n
INPUT "Введите имя студента:", studentName(i)
INPUT "Введите год рождения студента:", studentYearsOld(i)
NEXT i
PRINT
FOR i = 1 TO n
PRINT "Студент "; studentName(i)
studentYrs = 2016 - studentYearsOld(i)
IF studentYrs < 18 THEN
PRINT "Лет до права голоса:"; 18 - studentYrs
ELSEIF studentYrs >= 18 THEN
PRINT "Студент уже имеет право голоса!"
PRINT
END IF
studentYrs = 0
NEXT i

Код валидный, если допустил ошибку во время переписывания - сообщите.