Ответ:

Программа для расчёта суммы всех чётных чисел от 1 до 100:

var i,s: integer; 

begin 

s:=0; i:=2; 

while i<=100 do begin 

s:=s+i; 

i:=i+2; 

end;