[eichin:19960613.2320PDT] exercise 2.5

1) for I in 1..N loop
     Pascal(I) := Next(I);
   end loop;

2)
  for N in 1..10 loop -- wrong, 0..10
    -- body copied from example on page 24
    Pascal2(N, 0) := 1;
    for I in 1..10 loop
      Pascal2(N, I) := Pascal2(N-1, I-1) + Pascal2(N-1, I);
    end loop;
    Pascal2(N, N) := 1;
    -- end of copied body
  end loop;

3) 
  type Day_Of_Month is range 1..31;
  type Date is
     record
       Day: Day_Of_Month;
       Month: Month_Name;
       Year: Integer;
     end record;
  Today: Date;
  Today.Day := 7;
  Today.Month := February;
  Today.Year := 1967;
  -- ok; example was Today := (7, February, 1967);
  -- can you name the elements?