Составить программу печатающую квадрата всех натуральных чисел от 0 до заданного натурального n

Var a, i:integer;
begin
write('Введите конечное число: ');
readln(a);
for i := 0 to a do writeln(i,'² = ',sqr(i))
end.

1) Вирус  - это вредоносная программа, которая распространяется копируя себя (возможно не полностью). Различаются по попадания на устройство, типу заражаемых объектов распространения и типу вредоносных действий

В среднем жизненный цикл вируса такой: попадание на устройство, активация, поиск объектов для заражения, заражение, распространение

2) Вообще вирус может делать все то же, что и другая программа. Теоретически вирус может быть даже полезным. Но так или иначе он совершает действия не санкционированные самим пользователем или системой

Примеры вредоносных действий

использование ресурсов системы в своих целях (вычисления, Ддос атаки,...)удаление или порча, шифрование файловнарушение работы системы/ОСкража личных данных пользователя (напр. данных банковских карт, паролей)нарушение работы программперегрузка/блокировка линий связиспам, внедрение угрожающих/рекламных сообщений, переходы на нежелательные сайты

Начнем с того, что даже если вам каким-то образом удастся получить IP адрес пользователя вк, то это вам ровным счетом ничего не даст. В лучшем случае вы узнаете город, в котором находится этот человек и больше ничего. И это только в том случае, если этот субъект не использовал средства анонимизации. Как мы видим, в большинстве случаев у людей возникают проблемы достаточно серьезного характера: кого то шантажируют, на кого то клевещут, рас ложные сведения и т.д. В большинстве случаев злоумышленник перестраховывается и использует средства анонимизации. Поэтому полученный IP адрес вполне вероятно окажется IP адресом какого-нибудь анонимайзера или впн сервиса.