Напишите программу которая вычисляет площадь треугольника

Я возьму прямоугольный треугольник, если уж вы не соизволили написать условие. S=1/2ab(высота на основание).
program my;varS,a,b:real;beginwriteln('задайте значения сторон a,b');readln(a,b);S:=1/2*a*b;writeln('S=',s);end.