Составить программу рисования ромашки на паскале.

вот программа, довольно понятная, 

комментарии:

lepestkov: =13; - тут можно менять количесто лепестков

fi: =2*3.14*i/lepestkov;

2*pi - это полный угол 360 градусов. мы делим его на количество лепестков. таким образом мы получаем угол на который должен идти лепесток.

картинка ромашки во вложении. если такая не пойдет, отмечай как нарушение.

uses crt, graph; var gdriver, gmode, errcode: integer; i: integer; lepestkov: integer; fi,x,y: real; radius: integer; begingdriver: =detect; initgraph(gdriver, gmode,''); errcode: =graphresult; if(graphresult < > grok) thenbeginwriteln('ne mogu naiti file graphiki'); readln; end; setcolor(green); line(320,200,320,400); setcolor(yellow); setfillstyle(solidfill, yellow); fillellipse(320,200,15,15); setfillstyle(solidfill, white); setcolor(white); lepestkov: =13; for i: =1 to lepestkov dobegin fi: =2*3.14*i/lepestkov; for radius: =24 to 60 do begin x: =320 + radius*cos(fi); y: =200 + radius*sin(fi); fillellipse(round(x),round(y),10,10); end; end; readln; end.

"солнце" - круг с точкой в центре

"идти" - две ноги

"хлеб" - полукруг

"рот" - сильно вытянутый   полуовал

var

a: [1..100] array of integer;

i,n,p: integer;

begin

readln(n);

for i: =1 to n do

begin

readln(a[i]);

p: =2;

while (p*p< =a[i]) do

begin

if p*p=a[i] then writeln (a[i],' полный квадрат')

p: =p+1;

end;

end;

end.