Мне нужен граф иерахической системы про любой цветок

program ms; uses crt; var a: array [1..10] of integer; l,k,s,i: longint; beginclrscr; writeln('введите 10 элементов массива'); for i: =1 to 10 dobegin    readln(a[i]);     if a[i]< 0 then l: =l+a[i];     if a[i]> 0 then k: =k+a[i]; end; s: =l*k; writeln(s); readkey; end.

var  a: array [1..10] of integer;

n,i: integer;

begin

  {vvod massiva skopirovat suda}

  for i: = 1 to 10 do begin

      if a[i] mod 10 = 0 then

          n: =n+1;

  end;

  writeln(n);

end.

var a : real;

begin 

  readln(a);

  if a> =0 then writeln(a-50) else writeln(a+100);

end.

число делится на 3 -если

а)сумма цифр числа делится на 3,например: 97 не делится на три полностью,т.к. 9+7=16

  число 192 делится на 3,т.к 1+9+2=12 делится на 3