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

Вот решение в пару строчек:

program with_for;

var i, x: integer;

begin

for i:= 1 to 100 do if i mod 2 =0 then x:=x+i*2 else x:=x+i;

writeln(x);

end.