function Gen: sequence of real;
begin
  yield 1;
end;


begin
  Gen.Println;
end.