onebbukv.PAS

{* Буквы в тексте один раз *}

Unit ONEBBUKV;
Interface
Implementation
Begin
 writeln('Дан текст из строчных латинских букв, за которыми следует точка.Напечатать все буквы, входящие в текст по одному разу.');
End.

Program onebbukv;

Uses onebbukv.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  s  : String;
  sn : String;
  i  : byte;
  j  : byte;
Begin
  readln(s);
  i := 1;
  sn := s;
  For i := 1 To length(sn) - 1 Do {* Цикл для i => [1 .. length(sn)] *}
    For j := i + 1 To length(sn) Do
    Begin
      If j > length(sn) Then
        break;
      If sn[i] = sn[j] Then
      Begin
        delete(sn, j, 1);
        j := j - 1;
      End;
      
    End;
  For i := 1 To length(sn) Do {* Цикл для i => [1 .. length(sn)] *}
    If (sn[i] = ' 'Then
    Begin
      delete (sn, i, 1);
      i := i - 1;
    End;
  delete(sn, length(sn), 1);
  writeln(sn);
End.