pascalabcnet/TestSamples/CompilationSamples/decimal.pas
Бондарев Иван e6e67c193c initial commit
2015-05-14 21:35:07 +02:00

11 lines
195 B
ObjectPascal

uses System.Collections.Generic;
var l:list<integer>;
begin
var d:decimal;
d := 20.1;
d := d*d*d*d*d*d*d*d*d*d*d*d*d*d*d*d*d;
writeln(decimal.MaxValue);
writeln(d);
end.