Чтобы составить программу на языке PASCAL для нахождения наибольшего и наименьшего значения заданной функции на заданном интервале, следуйте этим шагам:

Сначала нужно определить, какую функцию вы хотите исследовать. Например, пусть это будет функция f(x) = x^2 - 4x + 3.

Затем определите интервал, на котором вы хотите найти наибольшее и наименьшее значение. Например, пусть это будет интервал [0, 5].

Теперь можно написать программу на PASCAL. Программа будет состоять из следующих частей:

• Объявление переменных.
• Определение функции.
• Цикл для перебора значений на заданном интервале.
• Сравнение значений для нахождения наибольшего и наименьшего.

program MinMaxFunction;

var
  x, minValue, maxValue: real;
  minX, maxX: real;

function f(x: real): real;
begin
  f := x * x - 4 * x + 3; // Определение функции
end;

begin
  minX := 0; // Начало интервала
  maxX := 5; // Конец интервала
  minValue := f(minX); // Инициализация minValue
  maxValue := f(minX); // Инициализация maxValue

  // Перебор значений на интервале
  for x := minX to maxX do
  begin
    if f(x) < minValue then
      minValue := f(x); // Обновление minValue
    if f(x) > maxValue then
      maxValue := f(x); // Обновление maxValue
  end;

  writeln('Наименьшее значение функции на интервале [', minX:0:2, ', ', maxX:0:2, '] равно ', minValue:0:2);
  writeln('Наибольшее значение функции на интервале [', minX:0:2, ', ', maxX:0:2, '] равно ', maxValue:0:2);
end.

После написания программы, скомпилируйте и запустите её. Вы должны получить наименьшее и наибольшее значение функции на заданном интервале.

Таким образом, вы можете использовать данный алгоритм для нахождения экстремумов любой функции на заданном интервале, изменяя функцию и интервал по вашему усмотрению.