Вычислите сумму последовательности y=1+1/2+1/3+/20 !

uses crt; var n: integer; beginread(n)n: =abs(n)-2; write(n); end.

1)через сеть интернет либо съемные носители 2)размножался в системе, выполнял нагрузку на цп до 100% 3)удалил с антивирусной программы 4)нужно ставить защиту на браузер и перед работы со съемным носителем проверять его на вирусы

  writeln(x) вот этой! потому что если взять  в ковычки выведет х

одна из возможных форм курсора : прямая