var
sum, i, count: integer;
begin
sum := 0;
i := 0;
count := 0;

while i <= 99 do
begin
sum := sum + i;
count := count + 1;
i := i + 1;
end;

writeln('Сумма чисел от 0 до 99: ', sum);
writeln('Количество чисел просуммировано: ', count);
end.