Не открывать подозрительные ссылки/сайты/файлы, возможно они заражены вирусами, но современные браузера оперативно отказывают в доступе сайта
ОТДЕЛ Задание+;
ПЕР
A: РЯД 10 ИЗ ЦЕЛ;
сч, произведение: ЦЕЛ;
УКАЗ
произведение := 0;
ОТ сч := 0 ДО РАЗМЕР(A) - 1 ВЫП
ЕСЛИ A[сч] > 0 ТО
произведение := произведение * A[сч]
КОН
КОН
КОН Задание.