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

[Ирина387]

Составить алгоритм и программу для вычисления в цикле суммарного результата. Найти сумму N правильных многоугольников: треугольника, квадрата, пятиугольника, ..., (N+2)-угольника, вычисляемых по формуле P=(k*A^2)/(4tg(Pi/k)), где k-число сторон; A-длина стороны, одинаковая для всех многоугольников.

[Stilet]

Код ввода данных для формулы состряпать сможешь?

[newerow1989]

var k,N:integer;
    A,P:real;
begin
   Write('N = ');
   Readln(N);
   Write('Dlina storon = ');
   Readln(A);
   P:=0;
   For k:=3 to N+2 do
      P:=P+k*A*A/(4*tan(Pi/k));
   Writeln(P:5:8);
   Readln;
end.

Сойдет?