Программа для расчёта суммы всех чётных чисел от 1 до 100:
var i,s: integer;
begin
s:=0; i:=2;
while i<=100 do begin
s:=s+i;
i:=i+2;
end;
