Уводни део часа :
1. Које су основне карактеристике процедура ?
2. Која је разлика између формалних и стварних параметара у процедури ?
-------------------------------------------------------------------------------------------------------------------
Главни део часа :                          
  
Пример 1. Написати процедуру и програм за брисање садржаја на екрану.

program ekran(input,output);

procedure brisi;
var i : integer;
begin
         for i:=1 to 24 do
                                writeln('                        ');
end;

begin
        brisi
end.

Пример 2. Написати програм који одређује елементе низа између којих се налази задати број p.

program izmedju(input,output);

type niz=array[1..100] of integer;

var n,i,p,manji,veci : integer;
                         a : niz;

procedure tacka( x,k : integer, c : niz; var min,max : integer);
var i : integer;
begin
         for i:=1 to k do
                               if ( x > c[i] ) then
                                                 begin
                                                          min:=c[i];
                                                          max:=c[i + 1];
                                                 end;
end;

begin
         write(' Unesi broj elemenata niza         : ' );
         readln(n);
         write(' Unesi prirodni broj                    : ' );
         readln(p);
         writeln(' Unesi elemente niza u rastucem redosledu ' );
         for i:=1 to n do
                               read( a[i] );
         tacka(p,n,a,manji,veci);
         writeln(' Broj ',p,' se nalazi izmedju elemenata ',manji,' i ',veci);
         readln;
         readln;
end.