Уважаемые программисты, напишите пожалуйста в Паскале ABC генератор случайных чисел 5 из 12 разных чисел.

Question

12 разных чисел: 
1,3,9,12,15,16,18,19,23,25,28,35 
 
А то я не программер, а генератор такой нужен

Дмитрий Ткачёв · Accepted Answer

Ну, просто ABC я уже не помню, да и кому нужна среда, не умеющая создать работающую отдельно от нее программу.. . 
На PascalABC.NET 
 
const t=12; p=5; var l,j,k:integer; 
var m:array [1..t] of integer:=(1,3,9,12,15,16,18,19,23,25,28,35); 
begin 
randomize; for j:=t downto 1 do begin k:=random(j)+1;l:=m[k];m[k]:=m[j];m[j]:=l end; 
for j:=1 to p do write(m[j]:3); writeln; readln 
end.