Program Procedure;
Procedure soma;
var n1,n2,soma:integer;
Begin
write('Digite o número 1....: ');
read(n1);
write('Digite o número 2....: ');
read(n2);
soma:=n1+n2;
writeln('A soma dos números é ',soma);
End;
Procedure subtracao;
var n1,n2,subtracao:integer;
Begin
write('Digite o número 1....: ');
read(n1);
write('Digite o número 2....: ');
read(n2);
subtracao:=n1-n2;
writeln('A subtração dos números é ',subtracao);
End;
Begin
writeln ('SOMA');
soma;
writeln ('SUBTRAÇÃO');
subtracao;
End.
Nenhum comentário:
Postar um comentário