Марина считает, что если установить антивирусную программу и регулярно обновлять антивирусную базу, то можно не переживать по поводу вирусов. мнение марины правильное?

Не совсем. Антивирусное ПО защищает только от вирусов, для которых уже есть "лекарство", но оно не защищает от уязвимостей нулевого дня (zero-day vulnerability). Для защиты от этой группы вирусов может регулярное обновление базы, но стоит помнить что для создания защиты требуется время, а при сильной "эпидемии" у Вас его может не быть. Вывод: кроме антивируса также не стоит скачивать и/или открывать подозрительные файлы с подозрительных сайтов и/или ресурсов.

Объяснение:

Начало;

Ввод X, Y (они у нас уже есть в табл. 1 и 2 (к примеру, в 1 табл. X=9, Y=14));

X=Y (у нас X=9, Y=14; 9 не равна 14, а это значит мы идём по стрелочке "нет");

X>Y (9 не больше 14, идём по стрелочке "нет");

Y=Y-X (подставляем в формулу наши X, Y из табл. 1 и получаем Y=14-9=5);

Теперь переходим на новую строчку табл. 1. X остаётся прежним (9), а в Y пишем тот, что мы нашли (5). Начинаем всё заново.

X=Y (9 не равна 5, идём по стрелочке "нет");

X>Y (9 больше 5, а это значит мы идём по стрелочке "да");

X=X-Y (подставляем в формулу наши X, Y. Это уже будет X=9-5=4)

Теперь переходим на новую строчку табл. 1. X теперь 4, а Y остаётся  прежним (5). Начинаем всё заново.

Так проделываем каждый раз пока X не станет равно Y (в 1 табл. это 1=1).

//Задача 1

begin

 var a := ArrRandom(20, -20, 20).Println;

 Println(a.Min, ' ', a.Max);

end.

//Задача 2

begin

 var a := ReadArrInteger(10);

 a.Where(p -> p.IsOdd).Count.Println;

end.

//Задача 3

begin

 SeqGen(90, 10, x -> x + 1).Where(x -> x mod 3 = 0).Println;

end.

//Задача 4

begin

 ArrRandom(10,-20,20).Println;

end.

//Задача 5

begin

 var (a, b) := ReadInteger2;

 Range(a, b).Product.Println

end.

//Задача 4

var

 n, i, sum, count: integer;

begin

 Writeln('Введите число: ');

 Readln(n);

 count := 0;

 while n <> 0 do

 begin

   i := n mod 10;

   sum += i;

   count += 1;

   n := n div 10;

 end;

 Writeln('Сумма цифр: ', sum);

 Writeln('Количество: ', count);

end.

//Задача 7

var

 n, i, sum, count: integer;

begin

 Writeln('Введите число: ');

 Readln(n);

 count := 0;

 while n <> 0 do

 begin

   i := n mod 10;

   if not Odd(i) then count += 1;

   n := n div 10;

 end;

 if count <> 0 then Writeln('True')

 else Writeln('False');

end.

Задача 8

begin

 var n := ReadInteger;

 for var i := 1 to n do

 begin

   Println('Я НЕ учусь программировать');

 end;

end.