Найти наибольшее значение функции - PascalABC.NET

Формулировка задачи:

в функции H=Vнач*t - (g*t*t)/2 нужно найти наибольшее значение H при известных Vнач и g. как это сделать?

Решение задачи: «Найти наибольшее значение функции»

Листинг программы

const
  g = 9.81;
 
var
  v0, H: real;
  
begin
  writeln('Введите начальную скорость v0:');
  readln(v0);
  H := sqr(v0) / (2 * g);
  writeln('Максимальная высота H = ', H:0:2);
  readln
end.

Объяснение кода листинга программы

В первой строке объявляется константа g и присваивается ей значение 9.81.
Далее, объявляются две переменные типа real - v0 и H.
В третьей строке выводится сообщение с просьбой ввести начальную скорость v0.
В четвертой строке происходит чтение значения переменной v0 из консоли.
В пятой строке вычисляется значение переменной H по формуле H = sqr(v0) / (2 * g).
В шестой строке выводится сообщение с максимальной высотой H.
В седьмой строке программа завершается и ожидает ввода пользователя.