Задание напаскале
Дано натуральное число n. Составить программу которая рисует правильный n-угольник

капец ты жесктий)

А можно меня избавить от подросткового жаргона?

Ну ты просто баклажан

сможешь ? https://znanija.com/task/29174940

это под силу только богам

// PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018// Внимание! Если программа не работает, обновите версию!uses GraphABC;begin  var (w,h):=(800,600); // размер графического окна  SetWindowSize(w,h);  var (xc,yc):=(w div 2,h div 2); // координаты центра  var R:=h-yc-20; // радиус описанной окружности  var n:=ReadInteger('Количество сторон n =');  Window.Clear;  Pen.Width:=5;  Pen.Color:=clRed;  var P:=new Point[n];  for var i:=0 to n-1 do begin    var arg:=2*Pi*i/n-Pi/2;    P[i].X:=Trunc(xc+R*cos(arg));    P[i].Y:=Trunc(yc+R*sin(arg))    end;  DrawPolygon(P);end.