Даны основания и высота равнобедренной трапеции. Найти ее периметр. Нужно создать программный код в Лазарус

Предыдущий
вопрос Следующий
вопрос

program TrapezoidPerimeter;

var
a, b, h, perimeter: real;

begin
Write('Enter the length of the first base: ');
Readln(a);

Write('Enter the length of the second base: ');
Readln(b);

Write('Enter the height of the trapezoid: ');
Readln(h);

perimeter := a + b + 2 * (sqrt(power(((b - a) / 2), 2) + power(h, 2)));

Writeln('The perimeter of the trapezoid is: ', perimeter:0:2);
end.