quinta-feira, novembro 19, 2015

LP - Procedure com variáveis - Pascal

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