Pascal/Turbo Pascal - suma infinita

Uses CRT;

var

  n , suma : Longint;

begin

  n:=0;

  suma:=0;

  Repeat

    Clrscr;

    Writeln('Introduzca un n£mero (0 para terminar)');

    readln(N);

    suma:=suma+n;

  Until n=0;

  Writeln('La suma es ',suma);

  readln;

end.

uses crt;

var

   seguir:boolean;

   suma,num:integer;

begin

    clrscr;

    seguir:=true;

    suma:=0;

    while seguir do

        begin

            write('Ingrese un numero: ');

            readln(num);

            if num = 0 then

                seguir:=false

            else

                suma:=suma+num

        end;

    writeln('La suma de los numeros es ',suma);

    readkey;

end.