fork download
  1. program test_integer_attribute;
  2. type
  3. integer16 = integer attribute (size = 16);
  4. integer32 = integer attribute (size = 32);
  5. integer64 = integer attribute (size = 64);
  6. begin
  7. writeln('sizeof(shortint): ', sizeof(shortint));
  8. writeln('sizeof(integer): ', sizeof(integer));
  9. writeln('sizeof(longint): ', sizeof(longint));
  10. writeln;
  11. writeln('sizeof(integer16): ', sizeof(integer16));
  12. writeln('sizeof(integer32): ', sizeof(integer32));
  13. writeln('sizeof(integer64): ', sizeof(integer64));
  14. end .
  15.  
Success #stdin #stdout 0.01s 5308KB
stdin
Standard input is empty
stdout
sizeof(shortint):   2
sizeof(integer):    8
sizeof(longint):    8

sizeof(integer16):  2
sizeof(integer32):  4
sizeof(integer64):  8