codice:
program primo;
uses crt;
var a, b:integer;

procedure somma(op1,op2:integer);
var somma:integer;
begin
  somma:=op1+op2;
  writeln('la somma tra',op1,' e ',op2,' è: ',somma);
end;
  
begin
clrscr;
  write('Inseriscii un numero: ');
  readln(a);
  write('Inserisci un altro numero: ');
  readln(b);
  somma(a,b);
  readln;
end.
se la tua domanda era vedere come si usa una procedura ecco quà. ovviamente in questo progr l'uso di questa procedura allunga solo la stesura del codice.