Составить функцию - Pascal ABC (12650)

Формулировка задачи:

1.Составить функцию нахождения площади треугольника по стороне и высоте, опущенной на эту сторону. С помощью данной функции вычислить площадь для N треугольников.

пж ребят

Решение задачи: «Составить функцию»

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

function S(a, h:real):real;
    begin
    S:= 1/2*(a*h);
    end;
var
N, i:integer;
a,h:real;
begin
writeln('Введите количество треугольников');
readln(n);
for i:=1 to N do
    begin
    writeln('Введите сторону и высоту треугольника');
    readln(a,h);
    writeln('Площадь треугольника №',i,' = ',s(a,h));
    end;
end.

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

Функция S принимает два аргумента a и h типа real и возвращает значение типа real.
В функции S выполняется следующая операция: S := 1/2 (a h).
Переменные N и i имеют тип integer.
Переменная a имеет тип real.
Переменная h имеет тип real.
Выводится сообщение «Введите количество треугольников».
Считывается значение переменной N.
Для каждой значения i от 1 до N выполняется цикл.
В цикле выводится сообщение «Введите сторону и высоту треугольника».
Считываются значения переменных a и h.
Вычисляется значение площади треугольника s(a,h) с помощью функции S.
Выводится сообщение «Площадь треугольника №», затем выводится значение i, «= », и выводится значение площади треугольника.