100-200 ARASI ÇİFT SAYILARI SIRALIYAN PROGRAM


uses crt;
var
   i:integer;
begin
     clrscr;
     for i:=100 to 200 do
     if i/2=trunc(i/2) then write(i:5);
     readln;
end.