Program soma ;
{Fazer um programa para ler três numeros e chamar uma função que retorna
a soma dos numeros}
{variaveis globlais, usadas no algoritmo}
var
n1,n2,n3:integer; // variaveis do numeros que serão digitados
r_soma:real; // variavel que recebe o retorno da função
{lembrando que primeiro fazemos o algoritmo, depois é que inserimos a função
recomendamos o uso de rascunho e detalhar cada parte antes de montar o programa}
//inicio da função
function soma(x1,x2,x3:integer):real;
begin
soma:=(x1 + x2 + x3);
end;
//fim da função
{começamos por aqui, depois fazemos a função
a função está em cima, pois ela deve está entre as variaveis e o begin do algoritmo}
//inicio do algoritmo
Begin
writeln('Digite 3 numeros a serem somados: '); // solicita os 3 numeros
readln(n1,n2,n3); // recebe os 3 numeros
r_soma:=soma(n1,n2,n3); // atribui a variavel r_soma o resultado da função chamada
writeln(' A soma dos numeros ', n1,',',n2,',',n3,' é : ',r_soma:5:2);
//exibe o resultado
End.
