Функции с числовыми параметрами(Pascal)

[TAB]

народ помогите сделать задачку.


Описать функцию TriangleP(a,h), находящую периметр треугольникапо основанию a и высоте h ghjdtltyjq r jcyjdfyb.(a и h вещественые). С помощью этои функции найти периметры трех треугольников для которых даны основания и высота(Задаеш сам). Для нахождения боковой строноны b треугольника использовать теорему пифогора b*b=(a/2)*(a/2)+h*h/

[Air]

И так, начнём.
1 - паскаль есть?
2 - Формула есть.
В чём проблема?
Написать Function TriangleP(a,h):integer;
и впихнуть туда формулу.