Полезное искапаемое ))))))
A1: вальс
A2: роман
A3: вокализ
A4: концерт
A5: кантата
A6: <span>П.И. Чайковский, М.И. Глинка, Н.А. Римский-Корсаков, М.П. Мусоргский
</span>A7: 2. Ледовое побоище
B1: опера; балет; мюзикл
B2: балет "Щелкунчик" - П.И.Чайковский; балет "Золушка" - С.С. Прокофьев; мюзикл "Кошки" - Э.Л. Уэббер; опера "Садко" - Н.А. Римский-Корсаков
B3: Классический симфонический оркестр: фагот, скрипка, кларнет, труба, челеста, арфа, виолончель
Оркестр русских народных инструментов: гусли, домра, балалайка, баян, свирель, рожок, жалейка
C: 1) П.И. Чайковский. Балет "Щелкунчик"
2) Н.Римский-Корсаков. Опера "Снегурочка"
3) А.Лядов. Симфоническая картина "Кикимора"
4) С.Прокофьев. Цикл ф/п миниатюр "Мимолётности"
5) И.С.Бах. Полифония. "Прелюдия и фуга"
- 250 градусів у відкритому космосі
Var t,i,x,max:integer;
begin
max:=0;t:=0;
repeat
begin
x:=0;
read(x);
if (x>0) and (x=max) then i:=i+1;
<span>if x>max then </span>
<span>begin </span>
max:=x;
i:=1;
end;
t:=t+1;
end;
until (x<=0) or (t>=1000) or (x mod 1>0);
if (x<0) or (x mod 1>0) then begin i:=-1; writeln('Нельзя вводить ненатуральные числа');end;
if i=0 then writeln('Введён только ноль');
if i>0 then writeln('Чисел, равных максимуму: ', i);
<span>end.</span>
+++++++++++++++++++++++++++++++++++++++++