{* Задача 198 *}

Unit ZADACH198;
Interface
Implementation
Begin
 writeln('Написать программу, которая осуществляет ввод строки с клавиатуры, а затем выводит на экран символы латинского алфавита нижнего регистра, не встречающихся в строке, затем выводит их в алфавитном порядке. Использовать тип множества для решения этой задачи.');
End.

Program stroka;

Uses zadach198.pas; {* Эту строку можно удалить *}
Type {* Создание новых типов данных *}
  symbols_small = Set Of'a'..'z';
Var {* В работе нам потребуются переменные: *}
  s   : symbols_small;
  str : String;
  i   : integer;
  ch  : char;
Begin
  writeln('Enter String');
  readln(str);
  s := ['a'..'z'];
  For i := 1 To length(str) Do {* Переменная i увеличивается с 1 до length(str) *}
    s := s - [str[i]];
  For ch := 'a' To 'z' Do {* Переменная ch увеличивается с 'a' до 'z' *}
    If ch In s Then
      writeln(ch);
End.