1. Дополни предложение, в пустые места впиши (скопируй) недостающие слова из списка: галерея, Вставка/Рисунок/Картинки, Вставка/Рисунок/Из файла, Вид/Панели инструментов/Настройки изображения, выбрать, левой кнопкой, панель настроек изображения, Delete.

Картину из галереи в документ можно вставить командой
.

2. Напиши (скопируй) правильный ответ из списка.

Добавить рисунок, Меню "Изображение", Увеличить контрастность, Уменьшить контрастность, Увеличить яркость, Уменьшить яркость, Обрезка, Тип линии, Меню "Обтекание текстом", Формат объекта, Установить прозрачный цвет, Сброс параметров рисунка.

Кнопка morecont.PNG называется

import datetime

m = 12

d = 12

year = 2020

y2021 = datetime.date(year=2021, month=m, day=d)

for i in range(20):

   year += 1

   y = datetime.date(year=year, month=m, day=d)

   da = datetime.datetime.isoweekday(y)

   print(da)

   if  7 == da  :

       print("Sunday")

       print(y)

   elif 6== da :

       print("Saturday")

       print(y)

   elif 5== da :

       print("friaday")

       print(y)

   elif 4== da:

       print("Tuesday")

       print(y)

   elif 3== da:

       print("Wensday")

       print(y)

   elif 2 == da:

       print("Вторник")

       print(y)

   elif 1 == da:

       print("Monday")

       print(y)

Объяснение:

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