Укажите мосты и точки сочления для графов представленных на рисунке

самый большой авал это будет танцоры. поменьше актёры,а самый маленький авал певцы. 2 элемента

февраль зимний месяц

май весенний месяц

август летний месяц 

сентябрь осенний месяц

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

s,i: integer;

begin

  {vvod tablicy}

  for i : = 1 to 10 do

      if a[i]< > 0 then s: =s+1;

  writeln(s);

end.

программа определяет какое число было введено пользователем положительное или отрицательное и выводит соответсвующее сообщение