Program Pzim ;
{Fazer um programa para ler um número (N) e chamar um procedimento
que mostra o somatório de 1 até N, garantir que o número seja positivo}
var //variaveis globais
n:integer;
{aqui é a varviavel go programa - variavel global}
procedure soma(x:integer);
var //variaveis locais
i, somas:integer; // aqui são variaveis que irão funcionar someente no procedimento,
// não pode ter variaveis com mesmo nome no programa e no procedimento
begin // o procedimento é iniciado com um begin
for i:=1 to x do
begin
somas:=somas+i;
end;
write('A soma dos termos de 1 até ',x,' é : ',somas);
end; // o procedimento é finalizado com end ; (ponto e virgula)
Begin
writeln('Digite um numero : ');
readln(n);
if (n>1) then // condição para que o numero seja positivo
begin //se atende a condição
soma(n); // chama a fuunção
end
else //se não
writeln('Digite um numero positivo'); //mostra mensagem pedido pra digitar um numero positivo
End.
