Задачка на множества Опции

[Buka]

Надо задать с клавиатуры 3 множества целых чисел, ввод элементов множества продолжать до нажатия клавиши z.

[Client]

repeat
   read(ch);
   if ch in['0'..'9'] then begin
      val(ch,a,kod_error);
      mn:=mn+[a] //mn:set of byte
   end;
until ch='z'

У меня паскаля нету, так что проверяй, писал тут

[Buka]

Спасибо) Щас проверю