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.
