Написать алгоритм построения короны в чертежнике! 50 !

Существует несколько тысяч языков программирования. Мы с вами познакомимся с языком программирования Паскаль, который был разработан в 70 -х годах века Никлаусом Виртом (Швейцария). Своё название этот язык получил в честь французского учёного Блеза Паскаля, известного не только своими достижениями в математике, физике и философии, но и созданием первой в мире механической машины, выполнявшей сложение двух чисел.Язык Паскаль считается универсальным языком программирования, так как он может применяться для записи алгоритмов решения самых разных задач (вычислительных, обработки текстов, построения графических изображений, поиска информации и т.д.).

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

Uses crt; const n=4;       m=6; var a: array [1..n,1..m] of integer;     x,y,k: integer; begin       for x: =1 to n do begin           for y: =1 to m do begin               a[x,y]: =random(21)-10;               write(a[x,y]: 4);           end;           writeln;       end;       for y: =1 to m do begin           k: =0;           for x: =1 to n do               if a[x,y]< 0 then inc(k);           if k=0 then writeln(y);       end; end.