Спонятием переменной не связано: 1. имя 2. значение 3. тип 4. свойство

4. свойство т.к. имя должно имеет ограничения, значения она принимает, имеет различные типы как константа. но свойств нет.

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! procedure listinsert(var l: list< real> ; e,e1: real); begin   for var i: =l.count-1 downto 0 do       if l[i]=e then l.insert(i+1,e1) end; begin   var p: =new list< real> ;   writeln('введите последовательность чисел, завершив её нулём');   p.addrange(readseqrealwhile(a-> a< > 0));   var what: =readreal('что вставить? ');   var before: =readreal('после чего вставить? ');   listinsert(p,before,what);   writeln('результат: ');   p.println end. пример введите последовательность чисел, завершив её нулём 3.8 -6.2 1.45 2.18 -6.2 14 2.7 2.18 2.18 3.8 15.4 0 что вставить? 0.0001 после чего вставить? 2.18 результат: 3.8 -6.2 1.45 2.18 0.0001 -6.2 14 2.7 2.18 0.0001 2.18 0.0001 3.8 15.4

Vara: array[1..100000000] of integer; mini,minz,i,n: integer; beginwrite('введите размер массива - '); readln(n); write('введите элементы массива - '); for i: =1 to n do  read(a[i]); i: =1; while  minz=0 do  begin  i: =i+1;   if a[i]> 0 then    begin    mini: =i;     minz: =a[i];     end;   end; for i: =1 to n do  begin  if (a[i]< minz) and (a[i]> 0) then    begin    minz: =a[i];     mini: =i;     end;   end; writeln('значение минимального элемента массива - ',minz,'. индекс - ',mini); end.