N=min(f(x)+y,y-z)/max(f(x),y) где функция f(x) выбирается пользователем: f(x)=x²,f(x)=sh(x),f(x)=ex в программе delphi

Как вариант люди могут стать еще более зависимыми от соц. сетей, например дети школьного возраста и подростки. Возможно, когда-нибудь техника сможет заменить и реальные встречи, разговоры, возможно даже и любовь. Мне кажется, что люди станут более ленивыми и необразованными. Зачем нужно будет учиться правописанию и корректной речи, если  автокоррекция всё равно исправит все твои ошибки в сообщениях. Мне кажется также, что люди будут меньше двигаться.Какой смысл ехать в другой конец города, чтобы поболтать с подругой о парнях, если просто моно будет позвонить ей через видео сеть.

//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
В числе есть одинаковые цифры