Ответ:

random(11)+10

Код для проверки:

program HelloWorld;

Uses crt;

var i: integer;

a: array[1..1000] of integer;

begin

Clrscr;

   for i:=1 to 1000 do

   begin;  

a[i]:= random(11)+10;

writeln (a[i]);

end;

end.