Решите подалуйста задачу на PascalABC

5. Напишите функцию, находящую гипотенузу прямоугольного треугольника. Входные параметры функции – катеты a и b. Для нахождения гипотенузы треугольника используйте теорему Пифагора. Примените составленную функцию для нахождения периметра прямоугольного треугольника, заданного своими катетами.

function Hypo(a, b: real) := Sqrt(a * a + b * b);

begin

 var (a, b) := ReadInteger2();

 Print('Периметр треугольника =', Hypo(a, b) + a + b)

end.