Из чего состоит ромашка из листков стебельков лепестков а ещё из чего?

а еще: корневая система, соцветия, ось побега

корня , побега , середины 

For i: =m to n do.. количество повторов равно n-m+1 - если меньше 1 значит повторов 0 for i: =m downto n do.. количество повторов равно m-n+1 - если меньше 1 значит повторов 0 1) 7 2) 9 3) 9 4) 5 переменные после выполнения программ:   5) i=2     s=0 6) x=16     s=26 7) a=1     s=0 8) пока не будет достигнут порог типа или же зацикливание. 9) a=3     b=5     s=8 10) s=35       p=10       k=7 11) k=5       s=11 12) s=60

Program   abc; const pi=3.14; var n: integer; z: real; r,d,l,s: real; begin writeln('введите номер элемента n='); readln(n); writeln('введите значение элемента z='); readln(z); case   n  of 1: begin r: =z; d: =2*r; l: =2*pi*r; s: =pi*sqr(r); writeln('радиус r=',r); writeln('диаметр d=',d); writeln('длина l=',l); writeln('площадь круга s=',s); end; 2: begin r: =z/2; d: =2*r; l: =2*pi*r; s: =pi*sqr(r); writeln('радиус r=',r); writeln('диаметр d=',d); writeln('длина l=',l); writeln('площадь круга s=',s); end; 3: begin r: =z/(2*pi); d: =2*r; l: =2*pi*r; s: =pi*sqr(r); writeln('радиус r=',r); writeln('диаметр d=',d); writeln('длина l=',l); writeln('площадь круга s=',s); end; 4: begin r: =sqrt(z/pi); d: =2*r; l: =2*pi*r; s: =pi*sqr(r); writeln('радиус r=',r); writeln('диаметр d=',d); writeln('длина l=',l); writeln('площадь круга s=',s); end; else   writeln('ошибка'); end; end.