Очень нужно решить это задание Pascal. нужно сделать его через функцию или процедуру!

1) Какие правила безопасности при работе в Интернете вы знаете?

Не указывать личные данные, не общаться с незнакомцами, в случае чего говорить взрослым, сидеть в интернете не больше нормы.

2) Что такое интернет-зависимость?

Интернет - зависимость - зависимость от интернета. Например: зависимость от социальных сетей. Это часто приходит к психологическим проблемам.

3) Какие бывают решения проблем с интернет-зависимостью?

Мы можем ограничивать свое время в интернете. Если у нас нет такой силы воли - попросить взрослых можно сходить к врачу, если проблема серьёзная.

Объяснение:

Термин "Интернет зависимость"

Интернет-завиисимость (или интернет-аддикция) — навязчивое стремление использовать Интернет и избыточное пользование им, проведение большого количества времени в сети.

По определению совершенным числом называется то число, которое равно сумме своих делителей отличных от самого числа. Значит,чтобы решить задачу нам нужно найти сумму делителей числа и проверить равна ли она самому числу.
var
  sum, N, i:integer;
begin
  readln(N);//читаем число с клавиатуры
 //Проверяем делатели до N-1, т.к. нам нужны делители не равные
//самому числу
  for i:=1 to N-1 do
    if N mod i = 0 then//Если i является делителем N, то...
      sum:=sum+i;// ...прибавляем его к сумме делителей
// Проверяем равна ли сумма делителей числа самому числу.
  if sum = N then
    writeln('Число совершенное')
  else   
    writeln('Число не совершенное');
end.