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

// PascalABC.NET 3.0, сборка 1088var  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}