code-examples/2015/2015_03/ada/algorytmy/tmp.adb

with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;

procedure tmp is
begin
    Put("Rozmiar standard: ");
    Put(Standard'Storage_Unit, Width => 0);
    New_Line;
end tmp;