type letters=set of 'a'..'z';
Составить программу, использующую процедуру print(A), печатающую в алфавитном порядке все элементы множества А, имеющего тип letters.
Пыталась делать, но ..... помогите пляз!!
var
myset: letters;
ch: char;
...
myset := ['b', 'r', 'u', 'f'];
for ch := 'a' to 'z' do
if ch in my_set then write(ch);
...
(если перебираешь все значения ch в алфавитном порядке, то содержимое множества тоже будет в алфавитном порядке напечатано)