Natural

var i,z,n:integer;
begin
write('Введите количество четных натуральных чисел: ');
readln(n);
if (n=0) then write('Пустое множество');
if (n<0) then write('Неверное значение');
i:=0;
for z:=1 to 999 do begin
if (z mod 2 = 0) then begin
write(z, ' '); i:=i+1; end;
if (i=n) then break;
end;
end.