Используя циклы, написать программу

[Станислава13]

Найти сумму натуральных чисел, предшествующих заданному числу а. Пожалуйста, помогите, срочно!

[Gray_Jagger]

var count,a,sum:integer;
begin
readln(a);
for count:=1 to a-1 do sum:=sum+i;
writeln(sum);
readln;
end.