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

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

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

      i: integer;

begin

  for i: =1 to 10 do begin

  readln(a[i]);

  if a[i]< 0 then a[i]: =abs(a[i]);

  writeln(a[i]);

  end;

end.

var a,b: real;

begin 

  readln(a,b);

  if a*b< 0 then writeln(a*b*2) else writeln(a*b*1.5);

end.

все живешь позетивно 

даже ежику противно