with Ada.Integer_Text_IO;
procedure Irakurri_Osoa (N : out Integer) is

   -- Aurrebaldintza:
   --    F = <z> (z, zenb. osoa)
   -- Postbaldintza:
   --    N = z

begin
   Ada.Integer_Text_IO.Get (Item => N);
end Irakurri_Osoa;
