Помогите пожалуйста.
Вычислить сумму ряда чисел от 10 до 25 с шагом 1. Применить цикл с предусловием.

Держи :)program sumS;Var S, a, b: integer;begina:=10;b:=25;while a<=b dobeginS:= S + a;a:= a+1;end;writeln(S);end.