fork(1) download
  1. program ideone;
  2. begin
  3. writeln('single: ',SizeOf(Single));
  4. writeln('double: ',SizeOf(Double));
  5. writeln('Extended: ',SizeOf(Extended));
  6. writeln('Real48: ',SizeOf(Real48));
  7. end.
Success #stdin #stdout 0s 5312KB
stdin
Standard input is empty
stdout
single: 4
double: 8
Extended: 10
Real48: 6