Кадрлык анимация неліктен классикалық әдістен кейін пайда болды?

Обычно - Вирусы не Заражают Комп. Обычных Людей. Обычно Заражаются Комп. в Офисах - Где есть какая - Либо Важная Информация.

Когда Анти-Вирус видит сам Вирус, он издаёт Звук и Говорит Голос - "Вирусная Угроза Была Обнаружена".

Также Исчезают Папки, Файлы и Деньги.

Но бывает также Вирусы, взламывают другие Комп; Телефоны, Планшеты и т.д. Ради Денег. - Высвечивается Надпись что бы приманить Хозяина любого устройства в том числе и комп.

Даже в самых Обычных Онлайн Игр Игровая Валюта - Румбы, Алмазы и Деньги (Игровые) - Могут стоить настоящие Деньги. Тогда Списывают с вашего счёта БЕЗ СПРОСА. Например: - 100 Руб. ; - 82 Руб. и т.д. (Я к примеру).

Или же при взломе На Комп. вместо Букв и Цифр - появляются Странные Символы - #"^^^*** и т.д.

1) 8
2) 7 выведет 1
3)
11 строка, поменять на k := k + 1;
14 строка заменить на if n = 1 then

Рабочий код

var
    n, k: integer;

begin
    read(n);
    k := 0;
    while n mod 7 = 0 do
    begin
        k := k + 1;
        n := n div 7;
    end;
    if n = 1 then
        writeln(k)
    else
        writeln('He существует')
end.

Правильное решение данной задачи
const
    divider = 7;

var
    n: integer;
    k: real;

begin
    read(n);
    k := ln(n) / ln(divider);
    if round(k) = k then
        writeln(round(k))
    else
        writeln('He существует');
end.