Напишите программу,которая вводит натуральное число n и выводит первые n четных натуральных чисел

program n1;

var n,i: integer;

begin

readln(n)

i:=2

while i<=n*2 do

begin

write(i,' ');

i:=i+2;

end;

end.