1. Программа выводит четные номера:
var k:integer;
begin
k:=2;
while klt;17 do
 begin
 write(k, );
 k:=k+2;
 end;
writeln;
end.

Результат:
2 4 6 8 10 12 14 16 

2. Программа выводит 8 произвольных номеров из диапазона [1,17]:
var k,i:integer; m:set of 1..17;
begin
Randomize;
m:=[];
for i:=1 to 17 div 2 do
 begin
 k:=random(17)+1;
 while k in m do k:=random(17)+1;
 m:=m+[k];
 write(k, );
 end;
writeln;
end.

Пример:
11 7 8 12 15 10 4 5