Дана строка. Выписать все русские буквы из этой строки. Решить с помощью множеств.

На самом деле версия 3.1 этого Паскаля позволяет "без множества" решить задание гораздо короче

var s:='а роза 13.56 sin(x) упала wow! на лапу азора';s.Where(c->c in ['а'..'я','ё']).Distinct.Print(',')

Т.е. множество символов для отбора мы все равно используем, а вот результат в множество не отбираем.

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016begin  var s:='а роза 13.56 sin(x) упала wow! на лапу азора';  var p:set of char:=[];  foreach var c:char in s do    if c in ['а'..'я','ё'] then Include(p,c);  Writeln(p)end.Результат{з,п,о,н,л,у,а,р}