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

N-кол-во, S-сумма
var S, n:integer;
Begin
n:=0;
S:=0;
while n<100 do begin
S:=n+S;
write('S=', S, ' ');
n:=n+1;
writeln('n=', n);
end;
End.