Вычислить площадь треугольникаPascal ABC

program pl; var a,h,s: real; begincls; write ('Введите основание и высоту труеглольника '); readln (a,h); S: =a/2*h; write ('площадь треугольника равна ',S); end. Вроде так, если вам нужна программа