program sum_of_progression;

var
A, D, i, sum: integer;

begin
A := 1; // первый член прогрессии
D := 2; // постоянное слагаемое

sum := 0;

for i := 0 to 9 do
begin
sum := sum + (A + i * D);
end;

writeln('Сумма 10 членов арифметической прогрессии: ', sum);
end.