procedure Ime (a, b : integer; var c, d : real);
begin
  a := 10;
  b := 2;
  Ime (a, b, c, d);
end;
 

Комплетен пример со процедура:

program primer1;

procedure soberi( prv, vtor : integer; var rezultat:integer);
    var   rezultat : integer;
    begin
        rezultat := prv + vtor;
        writeln('Rezultatot e  ', rezultat )
    end;

    var   broj1, broj2,rezultat : integer;
    begin
          writeln('Vnesete dva broja');
          readln( broj1, broj2 );
          soberi( broj1, broj2,rezultat);

    end.

program primer2;

procedure soberi( prv, vtor : integer; var   rezultat : integer);
    begin
        rezultat := prv + vtor;
     end;

    var   broj1, broj2,rezultat : integer;
    begin
          writeln('Vnesete dva broja');
          readln( broj1, broj2 );
          soberi( broj1, broj2,rezultat);
          writeln('Rezultatot e  ', rezultat )
 

   end.