PascalABC. Помогите решить, пожалуйста. Составьте программу подсчета площади...

Question

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

Answer 1

program pl1

var a, h, s: real;

begin

readln (a);

s:=a*h/2;

writeln('s=', s);

end.

Comments

Там где readln (a;h);

---

Большое спасибо!