Выведите ** экран в строку все числа первой сотни, но только четные

Question

Выведите на экран в строку все числа первой сотни, но только четные

Answer 1

Var a,b,c:integer;
begin
for a:=1 to 100 do begin
if a mod 2 = 0 then write(' ',a,' ');
end;
end.

Comments

Либо в цикле While пройти от i=2, наращивая i на 2.