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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.