pascalabcnet/TestSuite/SingleReal.pas

3 lines
73 B
ObjectPascal
Raw Permalink Normal View History

2023-09-18 11:00:06 +03:00
begin
Assert(Arr(1.0,2.0).Sum(x -> x*x).GetType = typeof(real))
end.