Составить линейную программу для решения .дана сторона равностороннего треугольника.найти высоту этого треугольника

Var a,h:real;
begin
write('Введите длину стороны треугольника a: ');
readln(a);
h:=(sqrt(3)/2)*a;
writeln('Высота h: ',h);
end.