Определите функцию, которая вычисляет и возвращает длину гипотенузы прямоугольного треугольника - Pascal ABC

Определите функцию, которая вычисляет и возвращает длину гипотенузы прямоугольного треугольника, две другие стороны x и y которого известны.

Заранее спасибо за помощь)

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

program alex2099;
 
function H(a,b:real):real;
begin
  H:=sqrt(sqr(a)+sqr(b));
end;
 
begin
  writeln(H(3,4));
end.

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

Создается программа с именем alex2099.
Определяется функция H, которая принимает два аргумента типа real и возвращает значение типа real.
Внутри функции H вычисляется гипотенуза прямоугольного треугольника с помощью функции sqrt и формулы sqr(a) + sqr(b).
Выводится результат вычисления функции H для пары аргументов (3,4) с помощью функции writeln.