VAR time1,time2 : Real;
BEGIN
  time1 := 0;
  time2 := time1*time1;
END.