CREATE PROCEDURE AverGoodPriceTime
RETURNS (Nomer Integer,Name VarChar( 10 ),AverPriceTime Float)
AS
DECLARE VARIABLE Data TimeStamp;
DECLARE VARIABLE Price Double;
DECLARE VARIABLE LastData TimeStamp;
DECLARE VARIABLE NewData TimeStamp;
DECLARE VARIABLE AvgTime TimeStamp;
DECLARE VARIABLE LastTime TimeStamp;
DECLARE VARIABLE TimeCount SmallInt;
BEGIN
 FOR SELECT Nomer,Name
           FROM t1
           INTO :Nomer,:Name
 DO
  BEGIN
   NewData='01-Jan-1800';
   AvgTime= 0 ;
   LastTime= 0 ;
   TimeCount= 0 ;
   FOR SELECT Data,Price
        FROM t2
        WHERE (t2.Nomer=:Nomer)
        INTO :Data,:Price
   DO
    BEGIN
     LastData=NewData;
     NewData=Data;
     IF (LastData>'01-Jan-1800') THEN
      BEGIN
        TimeCount=TimeCount+ 1 ;
        LastTime=NewData-LastData;
        AvgTime=AvgTime+LastTime;
      END
    END
   AverPriceTime=AvgTime/TimeCount;
   SUSPEND;
  END
END;