Proced 04 PASCAL

Program Proced04 ;
var
 n1,n2:integer;

procedure soma(n1,n2:integer);
var
adicao:integer;
 Begin
  adicao:= n1+n2;
  Writeln('Resultado: ',adicao);
 End;


 Begin
  Write('Informe 1 Valor: ');
  readln(n1);
  Write('Informe 2 Valor: ');
  readln(n2);
   soma(n1,n2);  {chama o procedimento}
   Writeln('            by Marcus Vinicius');
 End.