Уводни део часа :
1. Шта су функције ?
2. Које су главне одлике функција ?
-------------------------------------------------------------------------------------------------------------------
Главни део часа :

1. Написати програм и функцију за израчунавање производа свих парних бројева до n - тог.

program funkcija3(input,output);

var n,k,i : integer;

function paran(a : integer) : boolean;
begin
        if odd( a ) then
                              paran:=false
                      else
                              paran:=true
end;
begin
         writeln('Unesite broj');
         readln(n);
         k:=1:
         for i:=1 to n do
                               if paran( i ) then k:=k*i;
         writeln('Proizvod svih parnih brojeva od 1 do ',n,' je : ',k);
         readln;
         readln;
end.    

2. Написати програм који израчунава mk користећи функцију.

program funkcija4(input,output);
var m,k,i : integer;
function stepen(m,k : integer) : integer;
var I,pom : integer;
begin
         pom:=1;
         for I:=1 to k do
                               pom:=pom*m;
         stepen:=pom
end;
begin
         writeln('Unesite broj m i stepen k');
         readln(m,k);
         writeln(stepen(m,k));
         readln;
         readln;
end.

3. Написати програм који израчунава све делиоце задатог природног броја.

program funkcija5(input,output);
var i,m : integer;
function delilac(b,a : integer) : boolean;
begin
        delilac:=false;
        if ( a div b ) = ( a/b ) then
                                             delilac:=true;
end;
begin
        writeln('Unesite broj m');
        readln(m);
        writeln('Delioci su :');
        for i:=1 to m do
                           begin
                                   if delilac(i,m) then writeln(i)
                           end;
        readln;
        readln;
end.