Написать программу для нахождения периметра и площади равностороннего треугольника.(в pascal)

var a:real;beginwriteln('Введите сторону треугольника: ');readln(a);writeln('Периметр: ',3*a);writeln('Площадь ',sqrt(3)*a*a/4);end.