var i:byte;
begin
randomize;
for i:=1 to 87 do write(chr(random(68)+10));
end.
В первом варианте программы аргументом для Chr были элементы целочисленного массива. Прошло 20 лет(программа писалась в студенческие годыы). Решил её в учебных целях восстановить. И тут подумалось а где в постановке задачи сказано, что программа должна выводить требуемое при каждом запуске?! 🙂
Идея получила развитие
begin
randomize;
repeat
write(chr(random(80));
until keypressed;
end.
Плутон исключен из таблицы Менделеева