Простая последовательность чисел

[Эммануэль]

Здравствуйте! Стыдно спрашивать, но никак не получается. Подскажите, где у меня ошибка в тексте? Надо решить такую задачу:
Вывести на экран последовательность чисел: 4,6,8,10,12,14,16,18
Я вот что натворила:
program poslodovatelnost;
uses Crt;
var
i,n:integer;
begin
ClrScr;
writeln('Chetn. chisla c 4 do 18');
n:=18;
inc (i,2);
for i:=2 to n do
write(i:3);
readln
end.

[Shift_sk]

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

[Shift_sk]

так лучше)

[GetMax]

uses Crt;
var
i:integer;
begin
ClrScr;
writeln('Chetn. chisla c 4 do 18');
for i:=4 to 18 do
If (i mod 2 = 0) then write(i:3);
readln
end.

[GetMax]

uses Crt;
var
i:integer;
begin
ClrScr;
writeln('Chetn. chisla c 4 do 18');
for i:=4 to 18 do
If (i mod 2 = 0) then write(i:3);
readln
end.

[Shift_sk]

моя меньше в цикле висеть будет)время надо экономить!

[Эммануэль]

Ребята!!!!!!!!!!!!!!!
Спасибо!!!!!!!!!!!!!
Я разобралась!
Спасибо!

[Shift_sk]

девушке всегда приятно помочь

[veniside]

Сообщение от Эммануэль

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

writeln('4,6,8,10,12,14,16,18');

[Shift_sk]

)))))))))))))))