Паскаль:
var Gr, Pu, Ko, Sl,n ,m : integer;
begin readln(Gr, Pu, Ko, Sl); readln(n, m); Gr := Gr - n + m; if (Gr >= Pu) and (Gr >= Ko) and (Gr >= Sl) then writeln('Yes') else writeln('No')end.
Ответ: 2
A - название массива
: array - определяем что это массив
[1...25] - промежуток индексов всех элементов
of integer - числа целого типа
(Толстой | Гоголь) & Чехов = Толстой & Чехов + Гоголь & Чехов - Толстой & Гоголь & Чехов
(Толстой | Гоголь) & Чехов = 215 + 275 - 110 = 490 - 110 = 380.
Ответ: 380.
В первом файле язык С++.
А во втором на Pascal.