Где-то неподалеку от центра Теней – этот район до сих пор не целиком нанесен на карту – расположен небольшой дворик. По крайней мере, здесь на стенках горят факелы, но проливаемый ими свет – это свет самих Теней: скупой, красноватый, с темной сердцевиной. Напишите функцию shadow(), которая из Света сделает Тень.

В глобальной переменной district находится кортеж строк.
Функция принимает произвольное количество аргументов строк и именованный параметр slice со значением по умолчанию 3.

Если у аргумента функции и стоящего на том же месте элемента кортежа есть общие символы, если на регистр не обращать внимания, то элемент кортежа заменяется на срез от начала аргумента длиной, равной значению параметра slice.

Функция возвращает сумму исходных длин измененных элементов кортежа.

Не очень понял что именно от тебя хотят.Но если все действия происходят в Паскаль, то задача на оператор ветвления.А вот и сама программа на всякий случай:
Program Proverka;
uses CRT;
var x:real;       
Begin             
        clrscr;               
          writeln ('Введите X');               
          readln (x);                                            
                        IF x<0 then                           
                              writeln ('Отрицательное число x=' , x:5:2)                                                Else                           
                               Begin                           
                                       IF x>0 then                               
                                             writeln ('Положительное число x=' , x:5:2)                                Else                         
                               writeln ('Вы выбрали неверное значение');                                                     End;                         
readln;   
End.

Пусть уже ответили, не пропадать же работе даром))
program test;
var
  a:array[1..10,1..10] of integer;
  min,max,i,i1,sum,sum2:integer;
begin
  for i:=1 to 10 do begin
      for i1:=1 to 10 do begin
          a[i,i1]:=random(1,100);
          write(a[i,i1]:4);
      end;
      writeln;
  end;
  writeln('ГЛАВНАЯ ДИАГОНАЛЬ');
  min:=a[1,1];
  for i:=1 to 10 do begin
    for i1:=i to 10 do begin
      sum:=sum+a[i,i1];
      if a[i,i1]>max then max:=a[i,i1];
      if a[i,i1]<min then min:=a[i,i1];
    end;
  end;
  writeln('сумма ',sum);
  writeln('Максимальное ',max);
  writeln('Минимальное ',min);
  sum:=0;
  writeln('ПОБОЧНАЯ ДИАГОНАЛЬ');
  min:=a[1,1];
  for i:=10 downto 1 do begin
    for i1:=1 to i do begin
      sum:=sum+a[i,i1];
      if a[i,i1]>max then max:=a[i,i1];
      if a[i,i1]<min then min:=a[i,i1];
    end;
  end;
  writeln('сумма ',sum);
  writeln('Максимальное ',max);
  writeln('Минимальное ',min);
end.