procedure nazwa (parametr) is

czesc deklaracyjna

begin

czesc wykonalna

end nazwa;


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

function czy_parzysta(a: in integer) return boolean is

begin

if a mod 2 = 0 then return true
else return false;
end if;
end czy_patrzysta;

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

if czy_parzysta(n)=true then
put("liczba parzysta");
else put("liczba nie jest parzysta");
end if;

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

type tab is array (integer range <> of integer);

t1: tab(1..5);
t2: tab(20..50);
function pocz_kon (t: tab) return tab R;
tw: tab(1..2);
begin
tw(1):=t(t'first);
tw(2):=t(t'last);
return tw;
end pocz_kom;

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

procedure pisz(t:tab) is
begin
for i in t'range loop;
put(t(i));
end loop;

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

C:

void fun(int t[], int dl);

int mojaTab[10];
fun(mojaTab, 10);



end pisz;