В магазине продаются ювелирные украшения трёх видов, изготовленные из четырёх материалов. На гистограмме показано количество продукции, на круговой диаграмме - распределение материалов, из которых изготовлены украшения.​

1. Слайд – это изображение (или документ) в натуральном или электронном виде, предназначенное для просмотра через специальную аппаратуру графических объектов, текстов, видео или аудиоклипов.
2.Запускаете Power Point , и нажимаете "главная/создать слайд". Для создания второго и последующего слайдов воспользуйтесь кнопкой «Создать слайд» в левой части окна программы. Кнопка располагается во вкладке «Главная» верхней панели инструментов PowerPoint. Для выбора макета слайда при его создании кликните по треугольной стрелке, которая отображается прямо под кнопкой «Создать слайд». Выберите необходимый макет слайда и кликните по нему левой клавишей мыши.
3.В левой части окна нажать левой кнопкой мышки на нужный слайд 
и перенести его в нужный порядок
4.Вставка --> Картинка(Рисунок)
5.Выделите на слайде объект, который вы собираетесь анимировать и перейдите на вкладку «Анимация». Нажмите на кнопку «Настройка анимации» и справа появится соответствующая панель.
6.Нужно зайти во вкладку «Вставка», которая расположена в шапке презентации.Затем понадобится нажать на соответствующую иконку «Диаграмма». Выбрать тип диаграммы, в открывшемся окне Эксель, ввести данные, выделить их диапазоном, закрыть Эксель.

Var q,w,e,r,t,y,u,i,o,p,l,s,a: Integer;
begin
writeln('Введите 10 целых чисел');
readln(q,w,e,r,t,y,u,i,o,p);
s:=0;
a:=0;
for l:=0 to 9 do
begin
if l=0 then if q mod 2=0 then s:=s+1 else a:=a+1;
if l=1 then if w mod 2=0 then s:=s+1 else a:=a+1;
if l=2 then if e mod 2=0 then s:=s+1 else a:=a+1;
if l=3 then if r mod 2=0 then s:=s+1 else a:=a+1;
if l=4 then if t mod 2=0 then s:=s+1 else a:=a+1;
if l=5 then if y mod 2=0 then s:=s+1 else a:=a+1;
if l=6 then if u mod 2=0 then s:=s+1 else a:=a+1;
if l=7 then if i mod 2=0 then s:=s+1 else a:=a+1;
if l=8 then if o mod 2=0 then s:=s+1 else a:=a+1;
if l=9 then if p mod 2=0 then s:=s+1 else a:=a+1;
end;
writeln('Чётных: ',s);
writeln('Нечётных: ',a);
end.