Продолжите последовательность создания трехмерной модели (порядок использования Инструментов sketchup)
Мой ответ​

1. "Школьное" решение

// 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

Const c=4190;//Дж/кгvar v1,v2,S1,S2,n:integer;t0,t1,t2,i:integer;S,deng:real; begin writeln('Введите сумму за один Клвт'); readln(deng); writeln('Введите за сколько времени нужно нагреть воду  в минутах '); readln(n); writeln('Введите начальное значение и конечное температуры');  readln(t0,t1);  writeln('Введите сколько литров воды нужно нагреть первый  раз '); readln(v1);  for i:=t0 to t1 do  S1:=c*v1*(t2 - t1) div n;  writeln('Введите  конечное значения температуры для нагрева воды второй раз ');  readln(t2);  writeln('Введите сколько литров воды нужно нагреть второй раз ');  readln(v2);  for i:=t0 to t2 do  S2:=c*v2*(t2-t0) div n;  S:=(S1+S2)/10000;  writeln('Киловат=',S:3:2);  writeln('Сумма=',S*deng);  end.