Exercício 04 Funções e Procedimentos - Pascal

4) Altere o programa número 3 de forma que ele seja resolvido utilizando procedimento.

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.

Categories: Pascal , Programação