Дана строка , состоящая из слов, разделённых пробелами. выведите все слова, которые встречаются в ровно один раз. формат входных данных во входном файле дана строка . строка состоит из строчных букв латинского алфавита и пробелов; в ней есть хотя бы одна буква, её длина не превышает 100 символов. формат выходных данных выведите все слова, которые встречаются в ровно один раз. каждое слово выводите на новой строке в том порядке, в котором они втречаются в . примеры: вход to be or not to be выход or not

Вход выход или надо с другими в коментах решу если надо

// pascalabc.net 3.2, сборка 1427 от 24.04.2017 // внимание! если программа не работает, обновите версию! begin   var a: =seqrandom(readinteger('n=',50).select(n-> double(n/;   a.foreach(x-> write(x: 0: 1,' ')); writeln;   writeln('сумма отрицательных: ',a.where(x-> x< 0).sum);   var p: =a.indexmin;   var q: =a.indexmax;   if p> q then swap(p,q);   writeln('произведение на интервале: ',           a[p+1: q].aggregate(1.0,(x,y)-> x*y));   writeln('сортировка: ');   a.sort; a.foreach(x-> write(x: 0: 1,' ')); writeln; end. пример n= 13 1.7 -0.8 -1.3 -1.4 5.0 -3.1 -0.7 -2.7 2.6 -4.9 4.0 -2.0 -2.0 сумма отрицательных: -18.9 произведение на интервале: -15.2334 сортировка: -4.9 -3.1 -2.7 -2.0 -2.0 -1.4 -1.3 -0.8 -0.7 1.7 2.6 4.0 5.0

// pascalabc.net // цикл while begin     var i : = 1;         while i < 6 do      begin       write(i, ' ');       inc(i);     end;         writeln;     dec(i);         while i > 0 do     begin       write(i, ' ');       dec(i)     end end. // цикл repeat begin     var i : = 1;         repeat       write(i, ' ');       inc(i);     until i> 5;         writeln;     dec(i);         repeat       write(i, ' ');       dec(i)     until i< 1 end.