Переведите программу из паскаля в питон : const
nmax=20;
var
a: array[1..nmax,1..nmax] of byte;
n,i,j,c,k: byte;
begin
repeat
write('Введите размер матрицы n: ');
readln(n);
until n<=20;

i:=1; j:=1; c:=0; k:=1;
repeat
//вправо
while (k<=n*n)and(j<=n-c) do
begin
a[i,j]:=k;
inc(j);
inc(k);
end;
//вниз
inc(i); dec(j);
while (k<=n*n)and(i<=n-c) do
begin
a[i,j]:=k;
inc(i);
inc(k);
end;
//влево
dec(j); dec(i);
while (k<=n*n)and(j>=1+c) do
begin
a[i,j]:=k;
dec(j);
inc(k);
end;
//вверх
inc(c); inc(j); dec(i);
while (k<=n*n)and(i>=1+c) do
begin
a[i,j]:=k;
dec(i);
inc(k);
end;
inc(j); inc(i);
until k>n*n;

writeln('Матрица по спирали:');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
end.​

Хосспаде Иегове, да научитесь же вы язык указывать! Perl.
2.
@array; #Формат ввода не задан, будем считать что он уже заполнен.
$min = $array[0];
$max = $array[0];
for $i (@array) {
    $min = $i if ($i < $min);
    $max = $i if ($i > $min);
}
%hash = map {$_ => 1} @array;
for $i in ($min..$max) {
    print "$i " if (!(exists $hash{$i}));
}
3.
use Quantum::Superpositions; #Модуль для квантовых вычислений, жутко удобная штука.
@primes;
$n = <>;
push @primes, ($i) if ($i % all(2..sqrt($i)+1) != 0) i for $i (2..$n);
#ответ в массиве @primes.
4. На этот вопрос я не так давно отвечал, ну ладно.
$n = <>;
@multipliers;
for $i (2..$n) {
    if (!($n % $i)) {
        push @multipliers, ($i);
        $n /= i;
    }
}
#ответ в массиве @multipliers.
А теперь укажите-таки язык и я, если с этим языком знаком напишу нормальный, не извращённый ответ.

Хосспаде Иегове, да научитесь же вы язык указывать! Perl.
2.
@array; #Формат ввода не задан, будем считать что он уже заполнен.
$min = $array[0];
$max = $array[0];
for $i (@array) {
    $min = $i if ($i < $min);
    $max = $i if ($i > $min);
}
%hash = map {$_ => 1} @array;
for $i in ($min..$max) {
    print "$i " if (!(exists $hash{$i}));
}
3.
use Quantum::Superpositions; #Модуль для квантовых вычислений, жутко удобная штука.
@primes;
$n = <>;
push @primes, ($i) if ($i % all(2..sqrt($i)+1) != 0) i for $i (2..$n);
#ответ в массиве @primes.
4. На этот вопрос я не так давно отвечал, ну ладно.
$n = <>;
@multipliers;
for $i (2..$n) {
    if (!($n % $i)) {
        push @multipliers, ($i);
        $n /= i;
    }
}
#ответ в массиве @multipliers.
А теперь укажите-таки язык и я, если с этим языком знаком напишу нормальный, не извращённый ответ.