{function p: integer;
var l,m,n: integer;
begin
  var i,j,k: integer;
  yield j*dd;
  yield i;
end;}

procedure q;
var l,m,n: integer;
  kk,jj: real;
begin
  var i,j,k,mmm: integer;
  yield x111.x222+fff;
  yield l*k;
  yield i*n;
end;

begin
  
end.