bug0259.pp 74 B

123456
  1. VAR time1,time2 : Real;
  2. BEGIN
  3. time1 := 0;
  4. time2 := time1*time1;
  5. END.