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