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;