Троє друзів Отримай в кафе рахунок на суму n гривень, Який смороду вірішілі розділіті порівну. Скільки винен Заплатити КОЖЕН з них, если чайові складають 10% від суми Рахунку?

// PascalABC.NET 3.0, сборка 1073
const
  sb='bcdfgjklmnpqrstvwxz';
  s='Computer programming is a process of computer programs creation';
var
  i,n:integer;
  s1,sn,t:string;
begin
  i:=1;
  while s[i]<>' ' do Inc(i);
  s1:=Copy(s,1,i-1);
  n:=Length(s); i:=n;
  while s[i]<>' ' do Dec(i);
  sn:=Copy(s,i+1,n-i);
  t:='';
  for i:=1 to Length(s1) do
    if Pos(s1[i],sb)>0 then t:=t+s1[i];
  s1:=t;
  t:='';
  for i:=1 to Length(sn) do
    if Pos(sn[i],sb)>0 then t:=t+sn[i];
  sn:=t;
  t:='';
  for i:=1 to Length(s1) do
    if Pos(s1[i],sn)>0 then
      if Pos(s1[i],t)=0 then t:=t+s1[i];
  for i:=1 to Length(t) do Write(t[i],' ');
  Writeln
end.
 
Тестовый прогон:
t r

2. "Нормальное" решение

// PascalABC.NET 3.0, сборка 1073
const
  sb='bcdfgjklmnpqrstvwxz';
  s='Computer programming is a process of computer programs creation';
begin
  var a:=s.ToWords(' ');
  a[0].Intersect(a[a.Length-1]).Where(x->Pos(x,sb)>0).Println(',')
end.

Тестовый прогон:
t,r

1) Совокупность документов,связанных между собой взаимными ссылками в единый текст.
2) Раньше 256.
3) 1 байт=1 символу. Но сейчас возможны варианты где и по 2,3,4.
4)Это таблица, где каждой букве алфавита,а также цифрам и специальным знакам, присвоен уникальный номер 
UNICODE-8
5)Твоя фамилия мне не известна.
6) Это файл компьютера. В нём содержатся текстовые данные.
7) Для создания, редактирования и оформления текста.
8) Название, количество символов и размер файла.
9) 
10) Печатание текста, форматирование, выравнивание, автозамена, увеличение или уменьшение шрифта, копировать/вырезать/вставить, заменить, орфография.
11) По сути их 2. 1-это Антиква(serif) и 2-это (san-serif).
12) Если по простому. Это полное удаление всего. Например всех файлов на диске или флешки. 
13) Кусок текста. Например, абзац, несколько предложений, слов.
14) Это изменение информации.
15) Размер шрифта. Например 12pt или 16pt.