Pascal/Turbo Pascal - AYUDA EJERCICIO DE PASCAL QUE REALIZE LA DE SUMATORIA 100 HASTA 0

{Mira Esto}

program sumatoria;

uses

 crt;

var

 cont, num, sumat : word;

  procedure lasumatoria;

  begin

  num := 100;

  sumat := 0;

  for cont := (num div 2) downto 0 do

   begin

    sumat := sumat + (cont + cont);

   end;

  writeln;

  writeln('    El Resultado De La sumatoria Es : ',sumat);

  writeln;

  writeln('    Pulse Una Tecla');

 end;

 begin

    clrscr;

    lasumatoria;

    readkey;

  end.

{otra solucion mas corta}

uses crt;

var

    suma,i:integer;

begin

    clrscr;

    i:=100;

    while i>=0 do begin

        suma:=suma+i;

        i:=i-2

    end;

    writeln('La suma es ',suma);

    readkey;

end.