В классе n человек Незнайке найти, сколько команд из 5 человек может сформировать учитель физкультуры и сколько человек еще останется лишних учеников? Дано начальное положение автомобиля на координатной прямой – A (одна клетка – 1 км.). Затем автомобиль начал движение. Сначала он двигался со скоростью v1 км/ч вправо n1 часа, затем v2 км/ч влево n2 часа. Найти конечное положение автомобиля.

Игра в цифры. Петя и Ваня решили поиграть в одну придуманную ими игру. Один из мальчиков говорит 4-хзначное число, а другой должен быстро найти сумму 1-ой и 3-ей цифры этого числа автоматизировать процесс игры.
.Знайка, Пилюлькин и Поночка решили научить Незнайку умножению. После урока они задали ему задачу: нужно в году рождения автора данной книги из библиотеки перемножить все цифры Незнайке составить такую программу.​

Презентацию можно создать в PowerPoint'е. Запуская его, первой страницей будет титульный лист. На нем пишется тема презентации и кто подготовил.
Чтобы добавить слайды нужно нажать на кнопку "Создать слайд" (см. первый скрин).
Чтобы презентация была красочнее есть вставка различных объектов: изображений, звуков, фигур и прочего (см. второй скрин). Нажимаете на нужную кнопку, выберите, что надо и оно будет в презентации.
Также есть различные темы оформления, их можно скачивать из Интернета или пользоваться уже загруженными (см. третий скрин).
Есть анимация слайдов и показов слайдов, тоже можно выбрать (см. четвертый и пятый скрины).

Есть очень много примеров в YouTube или обычных статьях. Пусть подруга лучше их посмотрит/прочитает.

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
uses GraphABC;

procedure OutLightGreen(n:integer);
begin
  var OldColor:=FontColor;
  SetFontColor(clLightGreen);
  Write(n:5);
  SetFontColor(OldColor)
end;

begin
  var a:=MatrixRandom(10,14,-180,320);
  var m:=ReadInteger('n=');
  Writeln;
  SetFontColor(clWhite);
  Font.Style:=fsBold; Font.Name:='Courier';
  Brush.Color:=clBlack; Window.Clear(clBlack);
  var k:=0;
  for var i:=0 to 9 do begin
    for var j:=0 to 13 do
      if a[i,j]>m then begin
        Inc(k); OutLightGreen(a[i,j]) end
      else Write(a[i,j]:5);
    Writeln
    end;
  SetFontColor(clRed);
  Writeln('Количество элементов равно ',k)
end.