var a,b,c:real;beginwriteln('Введите данные о катетах');readln(a,b);c:=1/2*a*b;writeln('Площадь= ',c:0:2);readlnend.
Если паскаль абс, то предпоследнюю строку не обязательно.