решить задачу вот эту да да да

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

Попробуйте такое:

uses graphABC;
var
  x, y: array [1 .. 100] of integer;
  mI, mJ, mK, maxR, R, i, j, k: integer;
begin
  randomize;
  for i := 1 to 100 do
  begin
    x[i] := random(600) + 10;
    y[i] := random(360) + 10;
    circle(x[i], y[i], 2);
  end;
  maxR := 0;
  for i := 1 to 100 do
    for j := 2 to 99 do
      for k := 3 to 98 do
      begin 
        R := abs((x[i]-x[k])*(y[j]-y[k])-(x[j]-x[k])*(y[i]-y[k])div 2);
        if R > maxR then
        begin
          maxR := R;
          if R > mI then mI := i;
          if R > mJ then mJ := j;
          if R > mK then mK := k;
        end;
      end;
  setpencolor(clred);
  line(x[mI], y[mI], x[mJ], y[mJ]);
  line(x[mJ], y[mJ], x[mK], y[mK]);
  line(x[mK], y[mK], x[mI], y[mI]);
end.