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

PROGRAM Ploshchadj_Perimetr_Treugolnika;USES CRT;VAR a, S, P : real;BEGIN CLRSCR; WRITE( \' vvedite znachenie storony treugolnika a= \'); READLN(a); S:=1; P:=0; S:=(sqr(a)*sqrt(3))/4; P:=3*a; WRITELN ( \' ploshchadj treugoljnika S = \', S:15:3); WRITELN ( \' perimetr treugoljnika P = \', P:15:3); REPEAT UNTIL KEYPRESSED;END.