Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами которого являются встречающиеся в последовательности буквы от D до I.

// PascalABC.NET 3.0, сборка 1088 var   MySet:set of char;   s:string;   i:integer; begin   Write('Введите строку: '); Readln(s);   for i:=1 to Length(s) do     if s[i] in ['D'..'I'] then Include(MySet,s[i]);   Writeln('Состав множества: ',MySet) end. Тестовое решение: Введите строку: HAPPY BIRTDAY TO YOU! Состав множества: {H,I,D}