Что это такое? (FF80::123:1234:ABCD:EF12/48)

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(31,-10,12); a.Println;
  Writeln('Дней с нулевой температурой- ',a.Where(t->t=0).Count);
  Writeln('Дней с отрицательной температурой- ',a.Where(t->t<0).Count);
  Writeln('Дней с положительной температурой- ',a.Where(t->t>0).Count);
end.

Пример
9 -8 0 -10 5 -10 5 -8 -5 8 -2 0 -7 -5 3 6 10 5 -5 1 5 5 10 -3 -3 6 8 7 6 7 12
Дней с нулевой температурой- 2
Дней с отрицательной температурой- 11
Дней с положительной температурой- 18

Если хочется вводить с клавиатуры, вместо строки
var a:=ArrRandom(n,-10,12); a.Println;
надо написать
var a:=ReadArrInteger('Введите температуру по дням'+NewLine,31);

Const n=5;
var 
a:array[1..n,1..n] of integer;
i,j:integer;
begin
writeln('Исходная матрица:');
Randomize;
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
   a[i,j]:=random(100);
   write(a[i,j]:4);
  end;
  writeln;
 end;
for i:=1 to n do
 for j:=1 to n do
  if i<>j then a[i,j]:=0;
writeln('Измененная матрица:');
for i:=1 to n do
 begin
 for j:=1 to n do write(a[i,j]:4);
  writeln;
 end;
end.

Пример:
Исходная матрица:
  70  77  19  40  39
  28  31  64  64  98
   0  67  49  82  20
  43   0  16  48  56
   2  34  91  25  63
Измененная матрица:
  70   0   0   0   0
   0  31   0   0   0
   0   0  49   0   0
   0   0   0  48   0
   0   0   0   0  63