Программа Паскаль: вывести все чётные числа первой сотни

var i:integer; begin for i:=1 to 100 do if i mod 2 =0 then write (i,' '); end.