Компактно не получилось, но как умеем)

var i,n,k:integer;
a:array[1..12] of integer;
begin
 write('Write k: '); readln(k);
 for i:=1 to 12 do
  begin
   a[i]:=Random(70)-10;
   write(a[i]:5);
  end;

 writeln;
 writeln('Zadanie № 1');
  for i:=1 to 12 do
   if ((a[i] mod 10) mod 20) and (a[i] mod (a[i] mod 10)=0)
    then write(a[i]:5);

 writeln;
 writeln('Zadanie № 2');
  for i:=1 to 12 do
   If a[i] mod k=0
    then write(k:3,a[i])
    else write(a[i]:5);

 writeln;
 writeln('Zadanie № 3');
  for i:=12 downto 1 do
    if a[i]<0
     then
      begin
       n:=a[i];
       a[i]:=a[11];
       a[11]:=n;
       break;
      end;
   for i:=1 to 12 do
    write(a[i]:5);
 readln
end.