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

"человек с хорошей книгой в руках никогда не может быть одиноким."     книга-это источник мудрости,познания,читая которую мы совершаем путешествие во времени и пространстве.перед нами предстают герои,жившие в разные эпохи и на всех уголках земли,мы узнаём об событиях и учимся не совершать ошибки.мы переживаем бурные бури эмоций или остаёмся хладнокровными,в минуту опасности,всё зависит от того,какую книгу мы читаем в данный момент.   когда нам грустно,то книга нас развлекает,чтение приносит удовольствие от прочитанного.выбирая произведение,мы зачастую тянемся к тому,что нас волнует в данный момент. романы удовлетворяют наше любопытство,описывая детали баталий или основания стран и городов.влюблённые барышни и юноши увлекаются поэтичными стихотворениями, и сагами о любви.авантюрные путешествия ,увлекательные приключения мы совершаем с героями книг,расследуем преступления века с лучшими детективами и сыщиками-выбор произведений огромен.выбрать книгу не составляет труда,каждый читает то,к чему лежит душа,что каждому ближе.главное,чтобы чтение доставляло удовольствие,читать было бы интересно и полезно,читая книги,мы становимся мудрее.книги -это инструмент насаждения мудрости. "хорошая книга -это подарок, завещанный автором человеческому роду".

// 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.

Попробуй это решение
Var A:array[1..10000] of integer;i,x,d,n:integer;Beginreadln(x,d,n);A[1]:=x;For i:=2 to n doA[i]:=A[i-1]+d;
For i:=1 to n dowrite(a[i],);End.

Вроде бы 1000+1000+1000+100+1000+10+1000+1+10

Log2(64) = 6 (64 символа - это 6 битов). В байте, положим, 8 битов. Ясное дело, что только дебилу придёт в голову один символ по нескольким байтам рассовывать, а потом вытаскивать. Так что один символ - один байт. 2005 * 1 / 100 = 20,05 с.