10 lines
208 B
Ada
10 lines
208 B
Ada
|
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;
|