Вычислить сумму 0+1+2+3+4+5...+99 и определить сколько чисел просуммировано

Паскаль
Нужен текст проги со всеми var begin end итд
делать через while