Изменение шрифта на одном слайде
Выполните одно из указанных ниже действий.
Чтобы изменить шрифт одного абзаца или выражения, выделите текст, который нужно изменить.
Чтобы изменить шрифт всего текста в заполнителе, выделите весь текст или щелкните сам заполнитель.
На вкладке Главная в группе Шрифт выберите шрифт в поле Шрифт.
Изменение шрифтов во всей презентации
(Эта функция недоступна для PowerPoint в Интернете.)
На вкладке Вид в группе Режимы образцов выберите пункт Образец слайдов.
На левой панели, содержащей образцы слайдов и макеты, выберите эскиз образца слайдов или макет, содержащий шрифт, который вы хотите изменить.
В образце слайдов или макете щелкните текст заголовка или уровень основного текста, к которому нужно применить новое начертание шрифта.
На вкладке Образец слайдов в группе Фон щелкните Шрифты, а затем выберите шрифт из списка.
Повторите действия с 1 по 4 для других шрифтов, которые нужно изменить. Чтобы вернуться к изменению слайдов, на вкладке Образец слайдов в группе Закрыть выберите Закрыть режим образца.
Вы также можете использовать опцию заменить шрифт , чтобы изменить шрифт во всей презентации. Вот как это сделать.
На вкладке Главная в группе Редактирование нажмите кнопку заменить , а затем выберите команду заменить шрифты.
В диалоговом окне Замена шрифта в поле заменить выберите шрифт, который вы хотите заменить.
В поле На выберите шрифт, который вы хотите использовать, нажмите кнопку Заменить, а затем нажмите кнопку Закрыть.
Если вы используете один Образец слайдови измените шрифт на образце слайдов, во время презентации появится новый шрифт.
Если используется несколько образцов слайдов (например, когда к презентации применено несколько шаблонов), необходимо изменить начертание шрифта в каждом образце слайдов.
NaN выводится, потому что 
— отрицательное число. И потом происходит извлечение корня из этого отрицательного числа.
Чтобы NaN не было, нужно передать положительное число в функцию Power(), а потом возвращенный результат сделать отрицательным. (Это сработает только для нечетных степеней корня)
Нужно немного изменить код:
if x > 5 then
begin
cosVal := cos(sqr(x));
if cosVal < 0 then
writeln(Power(abs(cosVal), 1 / 3) *-1)
else
writeln(Power(cosVal, 1 / 3));
end;
где предложение