Напечать все чётные трёхзначные числа.

В паскале!!

for i:=1 to 999 do

if i mod 2 =0 then

writeln(i);

Program qr;

uses crt;

var x,i:integer;

begin

for i:=1 to 999 do

if not odd(i) then writeln(i);

readln;

end.