Вычислить сумму 0+1+2+3+4++99 и определить сколько чисел просуммировано паскаль нужен текст проги со всеми var begin end итд

Var i,sum,n,count: integer; begin writeln('введите максимальное число диапазона'); readln(n); for i: =1 to n do begin inc(sum,i); inc(count); end; writeln('кол-во чисел: ',count); writeln('сумма чисел равна: ',sum); end.

114.6 чисел на канкуляторе не легче решить?

program xxx;

    var z,d,k : integer;

begin

  z: =2; d: =7; k: =0;

  while (d> =z) do

    begin

      d: =d-z;

        k: =k+1

      end;

  writeln(d,'    ',k);

  readln

end.