Разработать ,ввести в эвм и отладить программу для расчёта площади правильного n-угонильника,сторона которого равна a.

PascalABC
---------------------------------

var
  a: real;
  n: integer;
begin
  write('Введите n, a: '); readln(n, a);
  writeln('Площадь ', n, '-угольника = ', (1/2)*n*a*(a/(2*tan(pi/n))));
end.