program task1;

var
  i, j, n :integer;
  
  a :array [1..10] of integer;

begin

  n:= 10;
  for i:= 1 to n do
    readln(a[i]);
  
  for i:= 1 to n do
    if a[i] mod 3 = 2 then
    begin
      for j:= i to n-1 do
        a[j]:= a[j+1];
      dec(n);
    end;
    
  if n = 10 then
    writeln(#13#10,'элементы для удаления не найдены')
  else 
  begin
    write(#13#10,'Новый массив:');
    for i:= 1 to n do
      write(a[i]:4);
  end;

end.

----------------------------------------------------------------------

program task2;

var
  i, j, n :integer;
  sum :real;
  
  a :array [1..15] of real;

begin

  n:= 14;
  for i:= 1 to n do
    readln(a[i]);
    
  sum:= 0;
  for i:= 1 to 10 do
    sum:= sum + a[i];
  writeln('Сумма равна ',sum);  
  
  j:= 8;
  for i:= n+1 downto j+1 do
    a[i]:= a[i-1];
  n:= n+1;
  a[8]:= sum;
  
  for i:= 1 to n do
    write(a[i]:4);

end.

----------------------------------------------------------------------

program task3;

const
  n = 10;

var
  i, max, imax :integer;
  
  a :array [1..n] of integer;

begin

  for i:= 1 to n do
    readln(a[i]);
  
  max:= a[1]; imax:= 1;
  for i:= 1 to n do
    if a[i] > max then
    begin
      max:= a[i];
      imax:= i;
    end;
  a[imax]:= a[3];
  a[3]:= max;
  
  for i:= 1 to n do
    write(a[i]:4);

end.