with Ada.Text_IO;
procedure Idatzi_Karakterea   (Kar : in Character) is
   -- Aurrebaldintza:
   --    Kar (karakterea)
   -- Postbaldintza:
   --    G = <Kar> (G irteera estandarra da)
begin
   Ada.Text_IO.Put (Kar);
end Idatzi_Karakterea;
