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;