написать программу в паскале, которая вычисляет площадь треугольника по формуле 1/2LH (L онснование H высота)

program zz1;

var h, l, s:real; / / задаем переменные не целого типа

begin

write (' введите заданное основание треугольника '); / / вводим с клавиатуры любое число

read (l);

write (' введите заданную высоту треугольника '); / / вводим с клавиатуры любое число

read (h);

s: = (l * h) / 2; / / вычисляем площадь треугольника по заданной формуле

writeln (' площадь треугольника = ', s:5:2); / / выводим ответ в формате пять знаков для всего числа и два знака после точки

end.