#3 Funkcije i procedure u paskalu basic

program funkcije;
uses crt;
var
  j:integer;
 procedure stampaj_ime;
  var
   i:integer;
 begin
    for i:=1 to 10 do
begin
 writeln('perica');
end;
  end;

procedure stampaj_ime2(ime:string);
  var
   i:integer;
 begin
    for i:=1 to 10 do
begin
 writeln(ime);
end;
  end;

  function saberi(br1:integer;br2:integer):integer;
    begin
 saberi:=br1+br2;
end;
 begin
 clrscr();
  stampaj_ime2('jovica');
  stampaj_ime2('djurica');
  writeln(saberi(2,3));
 readln();
 end.