Программа Паскаль: вывести все чётные числа первой сотни
Var i:integer; begin for i:=1 to 100 do if i mod 2 =0 then write (i,' '); end.