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