Написать программу получения ряда чисел в диапазоне до 100.распечатать из них только четные.

Var i, s: integer;
begin
s:=0;
for i:=1 to 100 do
if (i mod 2 <>0) then s:=s+i;
end;