Найти площадь равнобедренного треугольника зная высоту и основание по программе паскаль а б с(значения высоты и основания любые)

Var h,b,s:real;

begin
write('Введите основание = ');
readln(b);
write('Введите высоту = ');
readln(h);
s:=0.5*b*h;
writeln('Площадь треугольника = ',s:6:2);
end.