Знаю, выглядит немного смешно, но всё же:Program stogramm; Begin writeln(random(15)+1); writeln(random(15)+1); writeln(random(15)+1); writeln(random(15)+1); writeln(random(15)+1); writeln(random(15)+1); writeln(random(15)+1); writeln(random(15)+1); writeln(random(15)+1); writeln(random(15)+1); end.