with gnat.io;
use gnat.io;

procedure hello is
    task type zadanie is
        entry srednia(a,b: in integer;c: out integer);
    end zadanie;
    task body zadanie is
    begin
        accept srednia (a,b: in integer;c: out integer) do
            c:=(a+b)/2;
        end srednia;
    end zadanie;

z1:zadanie;
x,y,z:integer;
begin
        x:=3;
        y:=5;
        z1.srednia(x,y,z);
        put(z);
        new_line;
end hello;