Расписать выражения для программы
SQR

Var
    n: integer;
    min, max: 0..9;

begin
    Write('введите натуральное число: ');
    Readln(n);
   
    {инициализация начальных значений минимума и максимума}
    min := 9;
    max := 0;
   
    {разбиение числа на отдельные цифры и поиск их минимума и максимума}
    while n <> 0 do
    begin
        if n mod 10 < min then min := n mod 10;
        if n mod 10 > max then max := n mod 10;
        n := n div 10
    end;
   
    {Вычисление и вывод среднего геометрического минимума и максимума}
    writeln('Среднее геометрическое: ', sqrt(max * min));
end.

Собственно сначала программа ищет минимальную и максимальную цифру в числе, а потом считает среднее геометрическое или среднее пропорциональное этих двух цифр.

У меня на компьютере стоит проверенный бесплатный антивирус: Total 365 Security.

Также эсть топ-4 хороших и безплатных антивирусов:

Panda Free Antivirus — лучший за защиту в интернете ...

Avira Free Antivirus — лучшая технология комплексной защиты от вирусов ...

Sophos Home Free — лучший антивирус для семьи ...

Kaspersky Security Cloud (Free) — лучший за дополнительные функции ...

2) Канешно существует. Эсть безполезние антивирусы, которые существуют для галочки.

Уже эсли есть вирус на устройстве, нужно её пере И установить хороший проверенный антивирус, например такой как сверху я написал.