Как на презентации сделать пошаговый показ картинок

Word  7? на  вкладке "анимация"  ставишь галочку  на "автоматически после: "    вводишь сколько тебе надо   на вкладке "показ  слайдов"  самая первая кнопка слева - "показ слайдов с начала"  нажимаешь - и   еще  на вкладке "показ слайдов"  "настройка демонстрации" откроется   в нем поставить : смена слайдов  по времени

var

  k: integer; begin

  read(k);

  case k of

    1..2,12: write('зима');

    3..5: write ('весна');

    6..8 : write ('лето');

    9..11: write ('осень');

  end; end.