составить программу нахождения суммы ( с использованием for) 1+2+3+...+99+100+2+4+...+80+100. Помогите плизз и с нормальным решением

ответ 7600

Вот решение в пару строчек:program with_for;var i, x: integer;beginfor i:= 1 to 100 do if i mod 2 =0 then x:=x+i*2 else x:=x+i;writeln(x);end.