http://www.adaconcept.com/programs/parhuzamosalappr.adb
--Rotter Gyorgy
--Parhuzamos "alapprogram"


with Ada.Text_IO;

use Ada.Text_IO;

procedure parhuzamosalappr is

   --specifikacio
  protected Kepernyo is                         --vedett egyseg (ld. diak)
    procedure kiir (ki : string);               --((kolcsonos kizaras teljesul ra!!!))
  end Kepernyo ;


  --torzs
  protected body Kepernyo is
    procedure Kiir (ki : string) is
     begin
      put_line(ki);
    end Kiir;
  end Kepernyo ;


begin
   Kepernyo.Kiir("Parhuzamos program indul");


   Kepernyo.Kiir("Parhuzamos program vege");
end parhuzamosalappr;