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

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