Вволшебной стране есть 8 городов, пронумерованных числами от 1 до 8, и несколько дорог, соединяющих эти города. в связи с наступлением зимы на каждой дороге введено одностороннее движение. король хочет перенести столицу страны в тот город, из которого можно добраться до всех остальных по этим дорогам, возможно, по пути проезжая через промежуточные города. определите, в каком городе должна быть столица. в ответ запишите номер этого города (если вариантов ответа несколько, запишите наименьший номер). все дороги занесены в таблицу (см. рисунок), если на пересечении i-ой строки и j-ого столбца стоит 1, это означает, что из города с номером i ведет дорога в город с номером (с направлением движения от i до j).

//Код, уродливый как кхм
//Pascal ABC.NET 3.1 сборка 1219

Const
 n=1;
 m=2;

Var
 ar1:array[1..m] of integer;
 ar2:array[1..n] of integer;
 arr:array[1..n+m] of integer;
 i,p,raz,ost,isec:integer;
begin
write('Введите основание СС:');
readln(p);
writeln('Введите число 1:');
for i:=1 to m do
readln(ar1[i]);
writeln('Введите число 2:');
for i:=1 to n do
readln(ar2[i]);
if n>m then
begin
i:=n;
isec:=m;
while (i<>0) and (isec<>0) do
 begin
  if ar2[i]+ar1[isec]>=p then
   begin
    ost:=(ar2[i]+ar1[isec]) div p;
    arr[i]:=(ar2[i]+ar1[isec]) mod p;
   end
   else
   begin
    arr[i]:=ar2[i]+ar1[isec]+ost;
    ost:=0;
   end;
  dec(i);
  dec(isec);
  inc(raz);
 end;
 arr[i]:=ost;
 ost:=i;
 for i:=1 to ost do
 begin
 arr[i]:=arr[i]+ar2[i];
 inc(raz);
 end;
 while arr[1]>=p do
  begin
  ost:=arr[1] div p;
  arr[1]:=arr[1] mod p;
  for i:=raz downto 1 do
  arr[i+1]:=arr[i];
  arr[1]:=ost;
  inc(raz);
  end;
end
else
begin
i:=m;
isec:=n;
while (i<>0) and (isec<>0) do
 begin
  if ar1[i]+ar2[isec]>=p then
   begin
    ost:=(ar1[i]+ar2[isec]) div p;
    arr[i]:=(ar1[i]+ar2[isec]) mod p;
   end
   else
   begin
    arr[i]:=ar1[i]+ar2[isec]+ost;
    ost:=0;
   end;
  dec(i);
  dec(isec);
  inc(raz);
 end;
if n<>m then
begin
arr[i]:=ost;
ost:=i;
for i:=1 to ost do
begin
arr[i]:=arr[i]+ar1[i];
inc(raz);
end;
end
else
begin
for i:=raz downto 1 do
arr[i+1]:=arr[i];
arr[1]:=ost;
inc(raz);
end;
 while arr[1]>=p do
  begin
  ost:=arr[1] div p;
  arr[1]:=arr[1] mod p;
  for i:=raz downto 1 do
  arr[i+1]:=arr[i];
  arr[1]:=ost;
  inc(raz);
  end;
end;
writeln('Result:');
for i:=1 to raz do
write(arr[i]:4);
end.
Пример работы программы:
Введите основание СС:3
Введите число 1:
2
2
Введите число 2:
1
Result:
   1   0   0

Задачи 1,2,4:
/ PascalABC.Net 3.0, сборка 1066
var
  n:BigInteger;
begin
  var s:=ReadlnString('Введите натуральное число: ');
  If BigInteger.TryParse(s,n) then begin
    var c:=ReadChar('Введите проверяемую цифру: ');
    Writeln(c, ' встречается в ',s,' ',s.Where(x->x=c).Count,' раз');
    Writeln('Максимальная цифра числа: ',s.Where(x->x=s.Max).Distinct);
    Writeln('Перевертыш: ',s.Inverse);
    end
  else Writeln('Ошибка при вводе числа')
end.

Тестовое решение:
Введите натуральное число:  355678679650768680078676985643546809678546263435
Введите проверяемую цифру:  4
4 встречается в 355678679650768680078676985643546809678546263435 4 раз
Максимальная цифра числа: [9]
Перевертыш: 534362645876908645346589676870086867056976876553

Задача 3
// PascalABC.Net 3.0, сборка 1066
begin
  var m:int64:=-1;
  var n:int64:=0;
  Writeln('Принимаются неотрицательные целые числа');
  while (n>=0) and (m<n) do begin
    m:=n;
    n:=ReadInteger('Введите число: ')
  end;
  if m>=n then Writeln('Последовательность невозрастающая')
  else Writeln('Последовательность возрастающая')
end.

Тестовое решение:
Принимаются неотрицательные целые числа
Введите число:  4
Введите число:  6
Введите число:  12
Введите число:  83
Введите число:  170
Введите число:  214
Введите число:  170
Последовательность невозрастающая