quinta-feira, novembro 19, 2015

LP - Função - Pascal

Program Pzim ;
Var n1,n2:integer;


function soma(a:integer;b:integer):integer;
Begin
  soma:= a+b;
End;


Begin
    write ('Digite o valor de um número inteiro..:');
    read(n1);
    write ('Outro valor de um número inteiro.....:');
    read(n2);
    
    write('A soma dos valores é ',soma(n1,n2));
End.

Nenhum comentário:

Postar um comentário