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.