Написать программу по блок схеме:
ПАСКАЛЬ

Var
День,Месяц:byte;
Begin
Write('№ дня = ');ReadLn(День);
Var C:=365-День;
Write('№ месяца = ');ReadLn(Месяц);
Case Месяц of
2:C:=C-31;
3:C:=C-59;
4:C:=C-90;
5:C:=C-120;
6:C:=C-151;
7:C:=C-181;
8:C:=C-212;
9:C:=C-243;
10:C:=C-273;
11:C:=C-304;
12:C:=C-334
End;
if (C mod 100>10)and(C mod 100<20) then Write('До нового года осталось ',C,' дней')
else
Case C mod 10 of
1:Write('До нового года остался ',C,' день');
2..4:Write('До нового года осталось ',C,' дня');
0,5..9:Write('До нового года осталось ',C,' дней')
End
End.

Var A: Array of Integer;
    N: Integer;
    i: Integer;
    sum: Integer;
Begin
  Randomize;
  Write('N = ');
  ReadLn(N);
  SetLength(A, N + 1);
  WriteLn('Массив:');
  For i := 1 To N Do
  Begin
    A[i] := Random(50) - 25;
    Write(A[i] + ' ');
  End;
  WriteLn;
  WriteLn('Без отрицательных:');
  For i := 1 To N Do  Begin
    If A[i] >= 0 Then
      Write(A[i] + ' ');
  End;
  sum := 0;
  WriteLn;
  WriteLn('Среднее арифметическое:');
  For i := 1 To N Do  Begin
    sum := sum + A[i];
  End;
  WriteLn(sum / N);
End.