Составить программу вывода на экран четных чисел от 2 до 10

var i: integer;

begin

for i := 2 to 10 do

if i mod 2 = 0 then

writeLn(i);

end.