Вычислить сумму ряда чисел от 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.