Дана сторона равностороннего треугольника составьте программу для вычисления его периметра и площади(Паскаль)

Предыдущий
вопрос Следующий
вопрос

program EquilateralTriangle;

var
side, perimeter, area: real;

begin
write('Введите длину стороны равностороннего треугольника: ');
readln(side);

perimeter := 3 side;
area := (sqrt(3) / 4) side * side;

writeln('Периметр треугольника: ', perimeter);
writeln('Площадь треугольника: ', area);

end.