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;
write('A soma dos números é ',soma);
End;
Begin
soma;
End.
Nenhum comentário:
Postar um comentário