Program Pzim ;
Var n1,n2:integer;
Procedure parametrosoma(a:integer;b:integer);
var soma:integer;
Begin
soma:= a+b;
writeln('A soma dos valores é......: ',soma);
End;
Procedure parametrosubtracao(a:integer;b:integer);
var subtracao:integer;
Begin
subtracao:= a-b;
writeln('A subtracao dos valores é......: ',subtracao);
End;
Begin
write ('Digite o valor de um número inteiro..:');
read(n1);
write ('Outro valor de um número inteiro..:');
read(n2);
parametrosoma(n1,n2);
parametrosubtracao(n1,n2);
End.
Nenhum comentário:
Postar um comentário