PascalABC. Помогите решить, пожалуйста.
Составьте программу подсчета площади равнобедренного треугольника. Если площадь треугольника четная, разделить ее на 2, в противном случае вывести сообщение "Не могу делить на 2!"

program pl1

var a, h, s: real;

begin

readln (a);

s:=a*h/2;

writeln('s=', s);

end.