Заполнить массив 20-ю случайными числами так, чтобы числа не повторялись.

program arr;const b=40; //можно задать другое число, которое больше 19.var a:array [1..20] of integer;p, flag: integer;beginrandomize;for i: integer:= 1 to 20 do begina[i]:=random(b) + 1; if i > 1 then for j: integer:=1 to i - 1 do if a[i] = a[j] then beginflag:= 0;while flag = 0 do beginflag:= 1;a[i]:= random(b) + 1;for k: integer:= 1 to i - 1 do if a[i] = a[k] then beginp:= 0;flag:= flag * pendendendend;for k: integer:= 1 to 20 do writeln (a[k] : 3)end.