Знаю, выглядит немного смешно, но всё же:

1. Program stogramm;
2. Begin
3.  writeln(random(15)+1);
4.  writeln(random(15)+1);
5.  writeln(random(15)+1);
6.  writeln(random(15)+1);
7.  writeln(random(15)+1);
8.  writeln(random(15)+1);
9.  writeln(random(15)+1);
10.  writeln(random(15)+1);
11.  writeln(random(15)+1);
12.  writeln(random(15)+1);
13. end.