http://www.adaconcept.com/programs/elfedesesatadas.adb
--Rotter Gyorgy
--tomb elfedese fuggvennyel
--parameteratadas bemutatasa


with Ada.Text_IO;
use Ada.Text_IO;

procedure elfedesesatadas is

   type TombTipus is array (1..5) of integer;

   t: TombTipus := (others => 7);

   --ha  [*] -ot ide tesszuk, le sem fordul!!! ne hidd el, probald ki!!! :)

begin

   declare

      -- itt fedjuk el a t tombot (azaz innentol nem erhetjuk el a t nevvel, egeszen a blokk vegeig)
       --mert a fuggveny neve is t, meg parameter meg... :) :)

      function t(x: Integer) return Integer is      --|    [*]
      begin                                         --|
         return x;                                  --|
      end t;                                        --|


   begin
     Put("blokkon belul t(2)=" & integer'image(t(2)));     -- =2
     New_Line;
   end;

   Put("blokkon kivul t(2)=" & integer'image(t(2)));       -- =7


   ----------------------------------------------------

   declare
     i:integer := 7;                                       -- i=7

     procedure kibemeno(x:in out integer) is
     begin
       put("belul i=" &integer'image(i));                  -- i=7
       x:=0;
       put(" belul x=" & integer'image(x));                -- x=0
       put(" belul i=" &integer'image(i));                 -- i=7   !!!!!!!!!!
     end kibemeno;

   begin
     new_line;
     kibemeno(i);
     new_line;
     put("kivul i=" &integer'image(i));                    -- i=0
     new_line;
   end;



end elfedesesatadas;