Выводите все числа в цикле for i := 50 to 499 do writeln(i shl 1);

Альтернативный вариант i := 100; while i<1000 do begin writeln(i);Inc(i,2);end;