Вывести на экран последовательность чисел: 4,6,8,10,12,14,16,18- Pascal(Паскаль)

var
 i:integer;
begin
for i:=1 to 8 do
write(i*2+2:3);
end.

var i:integer;
begin
i:=4;
while i<=18 do begin
write (i,' ');
i:=i+2;
end;
end.