mọi người giúp mình bài này?

[phucduongd2t]

mình mới học nên chưa biết gj` mong mọi người thông cảm.
Đề bài: In lên màn hình n số tự nhiên chẵn đầu tiên. Biết n nhập từ bàn phím.
(kết hợp cả for-to và while-do nghe mấy bạn). giúp mình với!
yahoo: phucduongkissto@yahoo.com

[=========> Bổ sung bài viết <=========]

mà thoy! mình vừa biết cách làm. mình post lên các bạn xem cho mình với

uses crt;
var a,n,i: integer;
begin
clrscr;
write ('Nhap n:'); Readln (n);
writeln ('cac so tu nhien chan dau tien la:');
for i:=1 to n do
begin
a:=2*i;
write (a:5);
end;
readln;
end.

[nhokdragon94]

Có thể sửa như thế này :
for i:=1 to n do
begin
a:=2*i;
write (a:5);
end;

==>>
for i:=1 to n do
write(2*i:5);
Chéc sẽ nhanh hơn ^^

[cuongbn]

for i:=1 to n do
write( i shl 1:5)
Mình lâu ko viết pascal rồi. Theo minh dịch bit nhanh hơn

[lehang_gb1]

Cách 1:
write('Nhap n='); Readln(n);
For i:=1 to 2*n do
if i mod 2=0 then write(i:3);
Cách 2:
i:=1 ;
while i<=2*n do
Begin
if i mod 2 =0 then write(i:3){ hoặc có thể viết write(2*i:3);}
i:=i+1;
end;