PascalaABC.NET
begin
SeqGen(50,0,1,(x,y)->x+y).where(x -> (x > 99) and (x mod 10 = 0)).First.Print
end.
