Найти периметр трапеции - Pascal ABC

Скажите пожалуйста, как составить программу

Задача:

"Даны основания и высота равнобедренной трапеции. Найти ее периметр при любых значениях a и b"

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

c:=sqrt(h*h+sqr(abs(a-b))/2);

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

В первой строке кода переменной c присваивается значение квадратного корня от суммы квадрата высоты h и квадрата разности a-b поделенной на 2.
Функция sqrt используется для вычисления квадратного корня.
h и a-b являются переменными, которые, вероятно, содержат соответствующие значения.
Значение c будет равно периметру трапеции.