Елена делает букеты из роз, астр или хризантем. букеты украшает бусинками или бабочками. сколько вариантов букетов существует? нарисуй граф. !

var  s: string;   i: longint; begin  readln(s);   for i: =length(s) downto 1 do  begin  if s[i]=' ' then delete(s,i,1);   if (s[i]> ='1')and(s[i]< ='9') then delete(s,i,1);   end;   writeln(length(s)); end.

program a1; const n=20; var c: array [1..100] of integer; var i,k: integer; begink: =0; for i: =1 to n do beginc[i]: =random(101)-50; {заполнение массива произвольно от -50 до 50}write(' ',c[i]); {вывод массива на экран}end; for i: =2 to n doif c[i]< c[i-1] then k: =k+1; {сравнение элемента с предыдущим и счет  элементов которые меньше}writeln; writeln('количество элементов=',k); end.

program ssd;

  uses crt,graph;

  var       d,m: integer;

  begin

  clrscr;

  initgraph(d,m,'');

  arc(200,200,360,180,50);

  line(150,200,250,200);

  readkey; closegraph;

  end.

самым главным считается объем