Компактно не получилось, но как умеем)
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 2<>0) 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<br> 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.