Нужно. напишите программу ( в кумире) вывода всех четных чисел от 2 до 100 включительно.

Var i:integer;
begin
  for i:=2 to 100 do begin
if odd(i) then Write(i, ' ');
end;
end.