t_14_27_a_v1_volkovich

{Волкович Максим (volkovcih.maksim.s@gmail.com), 112гр., v1.0,
дан текст из маленьких латинских букв. Вывести первое вхождение каждой буквы в том же порядке}
program t_14_27_a_v1 (input,output);
var st: set of 'a'..'z'; c:char;
begin
   st:=[];
   read(c);
   while c<>'.' do
   begin
     if not(c in st) then begin st:=st+[c]; write(c); end;
     read(c);
   end;
end.