with gnat.io; use gnat.io;

procedure hello is
function srednia(a,b:in Integer) return Integer is
c:integer;
begin
c:=(a+b)/2;
return c;
end srednia;
x,y,z:integer;
begin
x:=2;
y:=8;
z:=srednia(x,y);
put(z);
new_line;
end hello;