складіть блок схему алгоритму наповнення ділянки ємністю 56 літрів використовуючи відро ємністю 8 літров.Напишите на листочке или тут но что б было понятно.​

"наименьшее число среди чётных элементов последовательности" - эти слова можно понимать двояко: "элементы, которые стоят на чётных местах в последовательности (второй, четвёртый, шестой и т.д.)" ИЛИ "элементы, значение которых чётное". Поэтому два решения:

Для элементов, стоящих на чётных местах в последовательности:
Program Starays;
uses crt;
const n=10;
var
   i,ch,min:integer;
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('*** OK ***');
  writeln(); writeln();
  writeln('Программа запрашивает N чисел, находит наименьшее число среди чётных элементов последовательности');
  write('Введите 1-e число: '); read(ch);
  write('Введите 2-e число: '); read(ch);
  min:=ch;
  for i:=3 to n do
    begin
      write('Введите ',i,'-e число: '); read(ch);
      if (min>ch) and (i mod 2=0) then min:=ch;
    end;
  writeln('Минимальное число среди элементов последовательности с четными номерами равно ',min);
end.

Для элементов, значение которых чётное:
Program Starays;
uses crt;
const n=10;
var
  i,ch,k,min:integer;
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('*** OK ***');
  writeln(); writeln();
  writeln('Программа запрашивает N чисел, находит наименьшее число среди чётных элементов последовательности');
{находим первый чётный элемент}
  k:=1;
  repeat
    write('Введите ',k,'-e число: '); read(ch);
    k:=k+1;
  until ch mod 2 = 0;
  min:=ch;
 {находим остальные чётные элементы} 
  for i:=k to n do
    begin
      write('Введите ',i,'-e число: '); read(ch);
      if (ch mod 2 = 0) and (min>ch) then min:=ch;
    end;
  writeln('Минимальное число среди элементов, значение которых чётное, равно ',min);
end.

Function GetWord(s:string; var ptr:integer):string;
var
  i:integer;
begin
  i:=PosEx(' ',s,ptr);
  if i>0 then
    Result:=Copy(s,ptr,i-ptr)
  else
    Result:=Copy(s,ptr,length(s)-ptr+1);
  ptr:=i+1
end;

var
  f,g:Text;
  ib:integer;
  s,Fam,Im,Ot:string;
begin
  Assign(f,'Input.txt');
  Reset(f);
  Assign(g,'Result.txt');
  Rewrite(g);
  while not Eof(f) do begin
    readln(f,s);
    writeln(s); // отладочная выдача
    ib:=1;
    Fam:=GetWord(s,ib);
    Im:=GetWord(s,ib);
    Ot:=GetWord(s,ib);
    writeln(g,Im,' ',Ot,' ',Fam); // закомментарить строку для б)  
    writeln(Im,' ',Ot,' ',Fam);   // отладочная выдача
    writeln(g,Fam,' ',Im[1],'.',Ot[1],'.'); // закомментарить строку для а)
    writeln(Fam,' ',Im[1],'.',Ot[1],'.'); // отладочная выдача
  end;
  Close(f);
  Close(g)
end.

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

Иванов Петр Сергеевич
Петр Сергеевич Иванов
Иванов П.С.
Тарасова Анна Георгиевна
Анна Георгиевна Тарасова
Тарасова А.Г.
Коваленко Евгений Станиславович
Евгений Станиславович Коваленко
Коваленко Е.С.
Петрова Татьяна Вячеславовна
Татьяна Вячеславовна Петрова
Петрова Т.В.
Бородкин Тимофей Савельевич
Тимофей Савельевич Бородкин
Бородкин Т.С.
Пышка Варвара Семеновна
Варвара Семеновна Пышка
Пышка В.С.
Голобородько Ирина Олеговна
Ирина Олеговна Голобородько
Голобородько И.О.