procedure calculo_suma_numeros;
var
num : integer;
suma : word;
begin
suma : = 0;
while num <> 0 do
begin
write ( ' Entre Número a sumar, el (0) termina : ' )
readln(num);
if num <> 0 then
suma : = suma + num;
end;
writeln;
writeln ( ' La Suma de los números entrados es : ' , suma);
writeln;
writeln ( ' Pulse [Enter] ' );
readln;
end;
