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

Var
   a:real;
Begin
Write('Сторона равностороннего треугольника: ');ReadLn(a);
WriteLn('P = ',a*3);
WriteLn('S = ',a*a);
End.