нужен реферат на 60 страниц. Тема:Безопасный интернет дома

И лишь пару лет тому назад интернет не был так значим людьми, как в наши дни. Дети не ходят гулять, а сидят в интернете, играя в различные игры или общаясь с людьми в соц сетях. Живое общение заменяет "смс". Не понимаешь чего-либо в уроке или жизни - загулил, хотя можно подойти к учительнице, попросить и она попытается понятно донести ту или иную информацию; или же подойти к родителям и попросить совета. Сейчас интернет имеет большую роль в нашем образе жизни, в жизни молодежи, но это не значит, что стоит забывать о реальном мире. 
Блин, как-то так 

//PascalABC.Net 3.0, сборка 1064
var
  n:integer;
  i,d:byte;
  b:array[0..9] of boolean;
  fail:boolean;
begin
  Write('Введите четырехзначное натуральное число: ');
  Read(n);
  for i:=0 to 9 do b[i]:=False;
  while (n>0) and (not fail) do begin
    d:=n mod 10;
    if b[d] then fail:=True else b[d]:=True;
    n:=n div 10
  end;
  if fail then Writeln('В числе есть одинаковые цифры')
  else Writeln('В числе нет одинаковых цифр')
end.

Тестовое решение:
Введите четырехзначное натуральное число: 1263
В числе нет одинаковых цифр

Введите четырехзначное натуральное число: 1315
В числе есть одинаковые цифры