Определите понятие программа для пк

Пк- это компьютер программы для компьютера

// 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