Вывести на экран в столбик все четные трехзначные числа, меньшие 200. начертить блок-схему в тетради! написать программу. 100 102 104… в программе кумир

Program qq;
var i:byte;
begin 
 for i:= 100 to 200 do
 if odd (i) = False then 
  writeln (i:4);
end.