Помоги построить алгоритмы пожааалуйста!! ( если есть возможность нарисуйте на листочке ифото пожалуйста )Задание 4 Написать программу, котораяпо данномунатуральному числу от 1 до 12 (номеру месяца)выдаетвсеприходящиесянаэтотмесяцпраздничныедни(например,если введено число 1, то: 1 января – Новый год, 7 января – Рождество) или сообщение, что праздников нет. Задание5 Дана последовательность из М чисел. Все отрицательные среди них числа возвести в квадрат и найти их сумму.

programSumSeq;

{$APPTYPECONSOLE}

uses

  SysUtils;

//constm:Integer  ;

var

  i, j, m, s:Integer;

  n: array of Integer;

begin

  s:=0;

  Writeln(m);

  Writeln('vvedite m');

  Readln(m);

  SetLength(n,m);

  for i:=0 to m do

    begin

      j:=Random(10);

      if j<5

         then n[i]:=-1*j

         else n[i]:=j;

      write(n[i], ' ')

    end;

  Writeln;

  Writeln('To continue push >>ENTER');

  Readln;

  for i:=0 to m do

    begin

      if n[i]<0

        then s:=s+sqr(n[i])

    end;

   writeln('s=',s);

   readln

  { TODO -oUser -cConsole Main : Insert codehere }

end.